#!/usr/bin/env perl

use 5.004;
use File::stat;

my $fileName = "./../lastmodified.html";
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime(stat($fileName)->mtime);
my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my @days = qw(Sun Mon Tur Wed Thu Fri Sat);
my $lastModified = 
  sprintf("Last-Modified: %3s, %d %3s %4d %02d:%02d:%02d GMT",
	  $days[$wday],$mday,$months[$mon],$year+1900,$hour,$min,$sec);

print "Content-type: text/plain\n";
print $lastModified . "\n";
print "\n";

print $lastModified . "\n";