sub makeDate {
  my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);

  $year += 1900;
  $mon++;

  sprintf "%02d_%02d_%04d_%02d%02d%02d",
          $mon, $mday, $year,
          $hour, $min, $sec;
}

##</code><code>##

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