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";

##</code><code>##

use strict;
use warnings;
use Time::Piece;

my ($d1, $d2) = ('2019-08-01', '2019-06-08');
my ($tp1, $tp2) = map {Time::Piece->strptime($_, '%F')} ($d1, $d2);

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