use Date::Manip; 
($weeks,$days,$hours,$minutes,$seconds) = 
	Delta_Format($timespan . "s", 0, qw"%wh %dv %hv %mv %sd"); 

##</code><code>##

use Date::Manip 6.13; 
my $deltao = Date::Manip::Delta->new($timespan . "s");
($weeks,$days,$hours,$minutes,$seconds) = 
	$deltao->printf(qw"%www %ddd %hhh %mmm %sss");