my ($sec,$min,$hour,@garbage) = gmtime(time - $^T);
my $runningtime = sprintf("%02d:%02d:%02d", $hour, $min, $sec);