c:\@Work\Perl\monks>perl -wMstrict -le
"use feature 'say';
 use DateTime;
 my $d1 = DateTime->new(
     year      => 1999,
     month     => 8,
     day       => 1,
     time_zone => 'America/Chicago',
 );
 my $d2 = DateTime->new(
     year      => 2019,
     month     => 6,
     day       => 8,
     time_zone => 'America/Chicago',
 );
 say DateTime->compare( $d1, $d2 )
     ? $d1->ymd .' is greater than ' . $d2->ymd
     : $d2->ymd .' is greater or equal to ' . $d1->ymd;
"
1999-08-01 is greater than 2019-06-08