get_age.pl

#!/usr/local/bin/perl
#
# util to find the time between two dates
# (specifically, i use this to find out how many months old my kids are)
#

use CGI qw(:standard);
use Date::Manip;

my $q = new CGI();

print $q->header(), $q->start_html('Get Age'), $q->start_form(),
      "Start Date: ", $q->popup_menu(-name=>'start_auto',
                                 -values=>['','19980101','20000101','20010101'],
                                 -default=>['']),
      $q->textfield('start_manual'),  "
\n",
      "End Date: ", $q->textfield('end',`date +%Y%m%d`), "

\n",
      "format: YYYYMMDD 

\n", $q->submit(), "

\n";

if( ( ($start=$q->param('start_auto')) || ($start=$q->param('start_manual')) ) && (my $end=$q->param('end')) ){
        my ($years,$months,$weeks,$days,$hours,$minutes) = split /:/, &DateCalc($start,$end,\$err,1);

        my $totalmonths = $months + abs($years) * 12;

        print "$totalmonths months between $start and $end 
\n",
              "($years years, $months months, $weeks weeks, $days days, $hours hours, $minutes minutes, $sec
onds seconds) 
\n";
}

print $q->end_html();