my $d1 = '2019-08-01';
my $d2 = '2019-06-08';