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

Perhaps you could use printf rather than print and sprintf and avoid concatenation to make that easier to read.

printf qq{Time:\t%02d:%02d:%02d\n}, $hour, $min, $sec;
[download]

I hope this is of interest.

Cheers,

JohnGG