use strict;
use warnings;

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

print "\n$d2 is ",
    ($d2 ge $d1 ? 'greater than or equal to' : 'less than'),
    " $d1\n";