#!/usr/bin/perl
use strict;
use warnings;

use MyClass;

my $obj = MyClass->new();

##</code><code>##

package MyClass;
use strict;
use warnings;

use Class::Std;

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

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