use HTTP::Date qw(time2str);

  my $now = time2str($filetime);
  my $expires = time2str($filetime + $delta);

  print "Last-modified: $now\n";
  print "Expires: $expires\n";