use HTTP::Date qw(time2str);
my $now = time2str(time);
print "Expires: $now\nLast-modified: $now\n";
# add other headers here