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