#!/usr/bin/perl

use strict;
use warnings;
use Date::Manip;
use Math::Round;

my $ifile = shift;

open IDF, "<$ifile" or die "No such file!";
while(<IDF>){
        my ($subject, $date1, $date2) = /^(.*), (\d+), (\d+)$/;
        my $d1 = ParseDate($date1);
        my $d2 = ParseDate($date2);
        my $diff = nearest(0.01, Delta_Format(DateCalc($d1,$d2),2,"%dh")/365.2425);
        print "$subject, $diff\n"; 
}