or download this
c:\@Work\Perl\monks>perl -wMstrict -en "print" foo get_bar()
Bareword "n" not allowed while "strict subs" in use at -e line 1.
...
c:\@Work\Perl\monks>perl -wMstrict -ep foo get_bar()
Bareword "p" not allowed while "strict subs" in use at -e line 1.
Execution of -e aborted due to compilation errors.