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