package Stone;

sub new{
my $pkg = shift;
my $hash= {
name => shift,
weight => shift
};
bless $hash,$pkg;
}


package main;

$obj = Stone->new;
print $obj;

としたときStone=HASH(0x5dcac4)と印字されるのですが、
これを任意の文字列(オブジェクトごとに変えたいです)
に変更する方法はありますでしょうか？
お教えください。