use strict; use warnings;

my $z = bless {}, "XXX";
my $w;
{
   $w = \$z;
}
print "hurray!\n"     if ! $w;
print "still got \$z" if   $z;