use strict;

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


if ($d2 >= $1) {
    
    print "\n $d2 is greater or equal to  $d1\n";
    
} else {
    
    print "\n $d2 is greater or equal to  $d1\n";
}