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