perl -MO=Concise my_script | wc -l