perl -Mstrict -e'my $num = 1; print 1 if $num >= 1; print 2 if $num => 1;'