my @fields = ($secs % 60, ($secs /= 60) % 60, ($secs /= 60) % 24, int ($secs / 24));
print join ':', reverse @fields;