Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
my $format = '%dh days %hd hours';
$delta = Delta_Format($delta, 2, $format);
print "\$delta (formatted) = $delta\n";

C:\S\Test>dm.pl
$delta             = +0:0:56:3:11:54:0
$delta (formatted) = 395 days 11.90 hours