package Stone;

sub new{
my $pkg = shift;
my $hash= {
name => shift,
weight => shift
};
bless $hash,$pkg;
return "任意の文字列";
}