$delta='0:0:14:6:23:51:0';
$dec=2;
@format=('%dh','%hd' );
use Date::Manip;
@str=&Delta_Format($delta,$dec,@format);
print "$str[0] days $str[1] hours\n";