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

##</code><code>##

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