Select Code to Download

#!/usr/bin/perl
use strict;
...

warn "$glob\n";
dump $glob;

GLOB(0x225130)
do {
...
  *{$a} = { a => 1 };
  $a;
}