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