sub new
{
    my $class = shift;
    return bless({},shift);
}

##</code><code>##

Can't locate object method "name" via package "main" at line 4.