my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime (time);

my $ts = sprintf("%02d:%02d:%2d" $hour, $min, $sec);