Select Code to Download

use strict;
use warnings;
...
my $now = localtime;
my $diff = $now - $before;
print int($diff->days), " days since $before\n";

4861 days since Mon Jan  1 00:00:00 2001