Help for this page
my $genpkg = "Symbol::"; my $genseq = 0; ... ## return the ref $ref; }
$r = do{ \local *FRED };; print $r;; GLOB(0x4055f70)