Select Code to Download

($month, $day, $hour, $min, $ampm) = ($stamp =~ m|(\d+)/(\d+)/\d+\s+(\
+d+):(\d+)(\w)|);

$newstamp = sprintf("%02d_%02d_%02d%02d%s", $month, $day, $hour, $min,
+ $ampm);