Never ignore the power of CPAN

use Date::Manip;
my $t = 234234324;
my ($d, $h, $m, $s)  = Delta_Format("+${t}seconds",'exact','%dh','%hv'
+,'%mv','%sv');
[download]