while (1) { my $days = int($runtime / 86400); $runtime -= ($days * 86400); my $hours = int($runtime / 3600); $runtime -= ($hours * 3600); my $minutes = int($runtime / 60); my $seconds = $runtime % 60; $days = $days .'d '; $hours = $hours .'h '; $minutes = $minutes .'m '; $runtime2 = $runtime; $runtime2 = $days . $hours . $minutes . $seconds . 's'; if (time()>=$nextruntime){ $nextruntime=time()+300; $runtime += 300; print "Duration: $runtime2\n"; } #### my $epochrun = $epochend - $epochstart; my $days = int($epochrun / 86400); $epochrun -= ($days * 86400); my $hours = int($epochrun / 3600); $epochrun -= ($hours * 3600); my $minutes = int($epochrun / 60); my $seconds = $epochrun % 60; $days = $days .'d '; $hours = $hours .'h '; $minutes = $minutes .'m '; $epochrun = $days . $hours . $minutes . $seconds . 's'; #### Starting iostat-10-test-2014_06_30-09:57:35_EDT Starting vmstat-10-test-2014_06_30-09:57:35_EDT Duration: 0d 0h 0m 0s Starting mpstat-10-test-2014_06_30-09:57:35_EDT Duration: 0d 0h 5m 0s Duration: 0d 0h 10m 0s Duration: 0d 0h 15m 0s Duration: 0d 0h 20m 0s Duration: 0d 0h 25m 0s Duration: 0d 0h 30m 0s Duration: 0d 0h 35m 0s Duration: 0d 0h 40m 0s Duration: 0d 0h 45m 0s Duration: 0d 0h 50m 0s Duration: 0d 0h 55m 0s Duration: 0d 0h 0m 0s