package H;
sub DESTROY { print "DESTROY\n"; }

sub new { my $class = shift; bless {}, $class; }

{
    if(my $h = H->new()) {
        print "IN\n";
        undef $h;
    }
    print "\$h out of scope\n";
}
print "why now?\n";

##</code><code>##

IN
DESTROY
$h out of scope
why now?

##</code><code>##

package H;
sub DESTROY { print "DESTROY\n"; }

sub new { my $class = shift; bless {}, $class; }

{
    {
        if(my $h = H->new()) {
            print "IN\n";
        }
    }
    print "\$h out of scope\n";
}
print "why now?\n";