$sec  = "0" x (2 - length($time)).$time ;
$msec = "0" x (3 - length($msec)).$msec ;