Select Code to Download

my $genpkg = "Symbol::";
my $genseq = 0;
...
    ## return the ref
    $ref;
}

$r = do{ \local *FRED };;
print $r;;
GLOB(0x4055f70)