{
    open my $foo, '>', $$ or die $!;
    print $foo;                        # GLOB(0x...)
    print ref $foo;                    # GLOB
    print *$foo;                       # *main::$foo
    print $foo "Test";                 # Test > $$
    {
        open my $foo, '>',"$$.z" or die $!;
        print $foo;                        # GLOB(0x...)
        print ref $foo;                    # GLOB
        print *$foo;                       # *main::$foo   <-- !!!!!
        print $foo "Test";                 # Test > $$
    }
}