Select Code to Download

sub makeDate {
  my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = l
+ocaltime(time);
...
          $mon, $mday, $year,
          $hour, $min, $sec;
}

sub makeDate {
  require POSIX;
  POSIX::strftime("%m_%d_%Y_%H%M%S", localtime(time));
}