Select Code to Download

$ perl -MO=Deparse -wMstrict=refs,subs -e 'BEGIN { *::x=\$a   } $x++'
BEGIN { $^W = 1; }
...
}
++$x;
-e syntax OK