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