#!/usr/bin/perl

@mon=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

($sec,$min,$hour,$mday,$mon,$year) = gmtime(time + 3600*24*7*5);
$year+= 1900;
printf "Expires: %02d %3s %4d %02d:%02d:%02d GMT\n",
       $mday,$mon[$mon],$year,$hour,$min,$sec;

($sec,$min,$hour,$mday,$mon,$year) = gmtime(time);
$year+= 1900;
printf "Date: %02d %3s %4d %02d:%02d:%02d GMT\n",
       $mday,$mon[$mon],$year,$hour,$min,$sec;
print "References: <ijackson-linux-faq2-$mon-$year@nyx.cs.du.edu>\n";
print "Message-ID: <ijackson-linux-faq2-$mon-$year-pt2@nyx.cs.du.edu>\n";

$mon--;
if ($mon < 0) { $mon+=12; $year--; }
print "Supersedes: <ijackson-linux-faq2-$mon-$year-pt2@nyx.cs.du.edu>\n";
