#!/afs/athena/contrib/perl5/perl

require '/mit/mkgray/perl/dateparse.pl';

print $birthtime = &pgetdate(join(" ", @ARGV));
$now = time();
$diff = $now-$birthtime;
print "$diff seconds = \n";
$minutes = $diff/60;
$hours = $minutes/60;
$days = $hours/24;
$years = $days/365.2422;
print "$days days = \n";
print "$years years\n";