#!/usr/bin/perl

use Time::Piece;
use Time::Seconds;

$bd_time = Time::Piece->strptime("1973/07/19", "%Y/%m/%d");
$now = localtime(time);

$diff = $now - $bd_time;

$years  = int($diff->years);
$diff  -= $years * ONE_YEAR;
$months = int($diff->months);
$diff  -= $months * ONE_MONTH;
$days   = int($diff->days);

print "$years years, $months months, $days days\n";