#First we create an anonymous hash, #then bless it into a packagepackage House;my $ref = { "Owner"=>"Tom", "Price"=>"25000", # Properties/attributes };bless($ref, House);print "\$ref is: $ref.\n";print ref($ref), ".\n";