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

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

{
    print \$h, "\n";
    if(my $h = H->new()) {
        print \$h, "\n";
    }
    print \$h, "\n";     # <- This references the package var
                         #    and would cause a strict error.
                         #    Object is no longer accessible.

    print "why now?\n";
}                        # <- The object is only destroyed here.