my $Destroyer = bless \$Object, 'Object::Destroyer';