% perl -Mstrict -MFoo -we'$Foo::bar = 1'
Name "Foo::bar" used only once: possible typo at -e line 1.