Select Code to Download

say DateTime->compare( $d1, $d2 ) 
    ? $d1->ymd .' is greater than ' . $d2->ymd 
    : $d2->ymd .' is greater or equal to ' . $d1->ymd;

say $d1->ymd . ' is ' . ('earlier than', 'equal to', 'later than')[Dat
+eTime->compare( $d1, $d2 ) + 1] . ' ' . $d2->ymd;