or download this
$ perl -wce 'print Foo'
Name "main::Foo" used only once: possible typo at -e line 1.
...
Unquoted string "foo" may clash with future reserved word at -e line 1
+.
Name "main::foo" used only once: possible typo at -e line 1.
-e syntax OK