Name "blah::a" used only once: possible typo at -e line 1.


##</code><code>##

perl -MO=Deparse -wMstrict -e "BEGIN { *::x=\$a   } $x++"
...
BEGIN { $^W = 1; }
use strict;
sub BEGIN {
    *x = \$a;
}
$main::x++;