perl -e 'use strict;BEGIN{if (bareword > 1) {1} }'