use Date::Calc qw( Delta_YMD );
my ($date_first, $date_next) = ("25/8/2003","1/12/2004");
my $diff = Delta_YMD(reverse( split "/", $date_first),
                     reverse( split "/", $date_next));