$ perl -Mwarnings -e " $foo = 1; "
Name "main::foo" used only once: possible typo at -e line 1.

$ perl -Mwarnings -e " my $foo = 1; "