Select Code to Download

Select or download this
```
perl5.8.4 -we 'BEGIN{my %x=()}'
```

Bizarre copy of HASH in leavesub at -e line 1.
BEGIN failed--compilation aborted at -e line 1.

Select or download this

perl5.8.4 -we '{my %x=()}'
perl5.8.4 -we 'my %x=()'
...
Name "main::x" used only once: possible typo at -e line 1.
perl5.8.4 -we 'my%x;BEGIN{ %x=()}'
perl5.8.4 -we 'my%x;BEGIN{ {%x=()}}'

Select or download this
```
perl5.8.4 -we '{my%x;BEGIN{ {%x=()}}}'
```

Select or download this

perl5.8.4 -w -MO=Deparse -e 'BEGIN{ my %x=()}'
Bizarre copy of HASH in leavesub at -e line 1.
...
sub BEGIN {
    my %x;
}

Select or download this

corion@aliens:~$ perl5.8.4 -V
Summary of my perl5 (revision 5 version 8 subversion 4) configuration:
...
    /opt/perl/lib/site_perl/5.8.4
    /opt/perl/lib/site_perl
    .