#!/usr/bin/perl -w

use strict;

while (<>) {
	my $days    =  ($_ - ($_ % 86400)) / 86400;
	my $hours   = (($_ - ($_ % 3600)) / 3600) - ($days * 24);
	my $minutes = (($_ - ($_ % 60)) / 60) - ($days * 1440) - ($hours * 60);
	my $seconds =   $_ - ($days * 86400) - ($hours * 3600) - ($minutes * 60);
  printf "%d day%s, ", $days, ($days > 1) ? 's' : '' if ($days > 0);
	printf "%02d:%02d:%02d\n", $hours, $minutes, $seconds;
}