my $x = bless {}, "XXX";
my $y = \$x;
undef $x;
if (! $$y) {
  print "hurrah!\n";
}