#!/opt/local/bin/perl
# age.pl: Computes your age in days
use Date::Calc qw(:all);

   if($#ARGV<2) { print "Usage: age.pl [year month day]\n"; }
   else { print abs(Delta_Days(@ARGV,Today)), "\n\n"; }