use strict;
use warnings;

use Time::Piece;
use Time::Seconds;
my $before = Time::Piece->strptime("2001/01/01", "%Y/%m/%d");
my $now = localtime;
my $diff = $now - $before;
print int($diff->days), " days since $before\n";

##</code><code>##

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