Select Code to Download

  use HTTP::Date qw(time2str);

  my $now = time2str($filetime);
...

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