document.write('');
document.write('
sub recordTime
{');
document.write('
open(TIME,
">>path/to/a/text/file.txt") ');
document.write('
or die "Could not open file.txt to append record time: " . $!;
');
document.write('
my ($sec,
$min,
$hour,
$mday,
$mon,
$year,
$wday,
$yday,
$isdst) =
');
document.write('
localtime(time);
');
document.write('
my $am_pm =
"am";
');
document.write('
if ($hour >
12) {');
document.write('
$am_pm =
"pm";
');
document.write('
$hour =
$hour -
12;
');
document.write('
}');
document.write('
printf TIME
"%4d-%02d-%02d %02d:%02d:%02d %s\n",
');
document.write('
$year+1900,
$mon+1,
$mday,
$hour,
$min,
$sec,
$am_pm;
');
document.write('
close(TIME
);
');
document.write('
');
document.write('
# append a \'0\' to minutes without double digits');
document.write('
return $min<
10 ?
$hour .
":0$min $am_pm" :
');
document.write('
$hour .
":$min $am_pm";
');
document.write('
}');
document.write('
');