Select Code to Download

#!/perl
use strict;
...
print "$result years\n";
$result = $diff->days;
print "$result days\n";

C:\Perl\bin>perl pm_1033486.pl
86.2496055700018 years
31502 days