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");