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