c:\@Work\Perl\monks>perl -wMstrict -le
"my $d1 = '2019-08-01';
 my $d2 = '2019-06-08';
 ;;
 my $comparison = $d1 cmp $d2;
 $comparison = $comparison > 0 ? 'greater than' :
               $comparison < 0 ? 'less than'    :
                                 'equal to';
 ;;
 printf qq{$d1 is %s $d2}, $comparison;
"
2019-08-01 is greater than 2019-06-08