#!/usr/bin/perl -w
use strict;

my $start = time();

while (1) {
    my $buffer = (time() - $start);
    ($buffer, my $seconds) = (int $buffer/60, $buffer % 60);
    ($buffer, my $minutes) = (int $buffer/60, $buffer % 60);
    ($buffer, my $hours)   = (int $buffer/24, $buffer % 24);
    my $days = $buffer;
    
    print "Duration: ${days}d ${hours}h ${minutes}m ${seconds}s\n";

    sleep (300);
}