use Date::Manip;

$date1=&ParseDate('2004-10-28');
$date2=&ParseDate('2003-10-23');
$delta=&DateCalc($date1,$date2,\$err,1);

print $delta."\n";