my $time = sprintf '%02d:%02d:%02d', ( localtime )[ 2,1,0 ];