#! /usr/local/bin/perl

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = (gmtime(time()+(5*60)));
$mon = (qw(Jan Feb Mar Apr May Jun
             Jul Aug Sep Oct Nov Dec))[$mon];
$wday  = (qw(Sunday Monday Tuesday Wednesday 
             Thursday Friday Saturday))[$wday];
$year = sprintf("%02d", $year % 100);
print "Content-type: text/plain\n";
print "Expires: $wday, $mday-$mon-$year $hour:$min:$sec GMT\n\n";
print "Sample plain text document\n";

exit (0);