Select Code to Download

$ perl   
use strict;
BEGIN { $x = 'y'; $$x = 1; print $y }
...
Global symbol "$x" requires explicit package name at - line 2.
Global symbol "$y" requires explicit package name at - line 2.
BEGIN not safe after errors--compilation aborted at - line 2.