#!perl
use strict;
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 $diff->pretty . " since $before\n";