$date = sprintf '%02u-%02u-%04u at %02u:%02u:%02u',$mon,$mday,$year,$hour,$min,$sec;