>>898
DateTime使ってるんなら簡単な関数作ればいいんじゃね？

#!/usr/bin/perl
use strict;
use warnings;

use DateTime;

my $tz = DateTime::TimeZone->new( name => 'local' );
sub s2dt {
　　my $duration = shift;
　　my $now = DateTime->now( time_zone => $tz )->epoch;
　　my $duration_dt = DateTime->from_epoch( epoch => $now + $duration - $now );

　　return $duration_dt->hms;
}

use Data::Dumper;
print Dumper s2dt(45);　　　# $VAR1 = '00:00:45';
print Dumper s2dt(130);　　 # $VAR1 = '00:02:10';
print Dumper s2dt(3601); 　# $VAR1 = '01:00:01';