package MyClass;
use Class::Std;

my $hash_ref = {};
bless $hash_ref, 'MyClass';

sub DEMOLISH {
    print "demolishing...\n";
}
1;