ちなみに

sub String_new{
my $self;
$self = {

の部分を

sub String_new{
my $self = {

としたり

sub String_new{
return {

としたりすると動かなくなります。