perl -MO=Concise -e'foo' | wc -l