perl -e "use strict; BEGIN { while(bareword < 1) {1} }"

##</code><code>##

perl -e "use strict; BEGIN { while(bareword > 1) {1} }"