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

##</code><code>##

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