##
$datetime = sprintf
'%d:%02d:%02d %s, %s, %s %d, %d',
$hour, $min, $sec, $ampm,
$thisday, $thismon, $mday, $year + 1900;
####
$ampm = 'AM';
if ($hour >= 12)
{
$hour -= 12;
$ampm = 'PM';
}
$hour += 12 unless $hour;