$datetime = sprintf
   '%d:%02d:%02d %s, %s, %s %d, %d',
   $hour, $min, $sec, $ampm,
   $thisday, $thismon, $mday, $year + 1900;