use Time::Piece;

$before = Time::Piece->strptime("2001/01/01", "%Y/%m/%d");
$now = localtime;

$diff = $now - $before;
print int($diff->days), " days since $before\n";