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