Select Code to Download

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

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