use DateTime::Duration qw( );

{
   my $secs = $ARGV[0];

   my $dur = DateTime::Duration->new(
      days    => int($secs/(24*60*60)),
      hours   => int($secs/(60*60))%24,
      minutes => int($secs/60)%60,
      seconds => $secs%60,
   );

   print format_duration($dur), "\n";
}