perl -e "use strict; print 1 if (my $x = 1) > (my $y = 0);"