use Date::Calc qw/Delta_Days/;

my $date1 = '27/01/03';
my $date2 = '01/02/03';

my $delta = Delta_Days(map {reverse split m:/:} ($date1, $date2));
print $delta;