Date::Calc has a nice func that does a similar thing... Delta_Days($year1,$month1,$day1, $year2,$month2,$day2);

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.