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";