my $ap= $hour>11 ? "PM" : "AM";
$hour = $hour % 12; 
$hour = $hour || 12;

##</code><code>##

$date = sprintf '%3s:%02d:%02d:%4d', @days[$wday], $mday, $mon, $millyear; 
$time = sprintf '%02d:%02d:%02d:%2s:%11s', $hour, $min, $sec, $ap, $date;