Select Code to Download

my @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
my @dates;
...
  # or if you want zero-padding...
  printf "%s modified on %3s %02d, %02d:%02d\n", $f, $months[$mon], $d
+ay, $hour, $min;
}