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