use strict;
use warnings;
use Date::Calc qw(:all);

my $date_first = '2005-09-27';
my $date_second = '2019-12-22';

my @array_first = split(/-/, $date_first);
my @array_second = split(/-/, $date_second);

my $dd = Delta_Days(@array_first,@array_second);
print "$dd\n";