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