print "Time:\t".sprintf("%02d",$hour).":".sprintf("%02d",$min).":".spr
+intf("%02d",$sec)."\n";