my $t0 = [gettimeofday]; my $time = tv_interval ( $t0, [gettimeofday]); my @timeData = localtime(time); $time= join(':', @timeData); if($time =~m#^(.*?)\:(\d+)\:(\d+).*?$#) { $time = $3 . ':' . $2 . ':' . $1; }