#!/usr/bin/perl
#
# duration() — Convert seconds into [d+]hh:mm:ss representation.
# By J’raxis 270145.
#
# $Id: duration.pl,v 1.1 2004/12/14 12:29:02 jraxis Exp $



sub duration {
	use integer;
	local $_ = shift;

	my $d =   $_ / 86400;
	my $h = ( $_ % 86400 ) / 3600;
	my $m = ( $_ %  3600 ) /   60;
	my $s =   $_ %    60;

	return(( $d ? "$d+" : '' ) .
		sprintf( '%02d:%02d:%02d', $h, $m, $s ));
};



print( "$_: ", duration( $_ ), "\n" )
	for( @ARGV );