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