perl -MO=Lint,dollar-underscore script.pl