$runTime = ConvertSeconds(TOTAL_SECONDS_HERE); print "$runTime\n"; sub ConvertSeconds($) { $hours = $minutes = $seconds = 0; ($minutes, undef) = split (/\./, "@_" / 60); $seconds = "@_" - ($minutes * 60); if ($minutes >= 60) { ($hours, undef) = split (/\./, $minutes / 60); $minutes = $minutes - ($hours * 60); } $minutes = "0$minutes" if (length($minutes) == 1); $seconds = "0$seconds" if (length($seconds) == 1); if ($hours) { $result = "$hours:$minutes:$seconds"; } else { $result = "$minutes:$seconds"; } return $result; }