Select Code to Download

#!/usr/bin/perl 
use strict; 
...
    # $t /=30; return sprintf("%s%2.2f months", $s, $t) if ($t < 12);
    # $t /=12; return sprintf("%s%2.2f years", $s, $t);
}

my $days = int(0.5 + ( $epoch_target - $epoch_from ) /60/60/24 );