perl -Mstrict -Mwarnings  -MO=Deparse -e 'print M"xxxx";'
Name "main::M" used only once: possible typo at -e line 1.
print M 'xxxx';
-e syntax OK