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