perl -MO=Lint,-all,-no-undefined-subs foo.pl