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

##</code><code>##

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

##</code><code>##

sub name 
{
    my $self = shift;
    $self->{NAME} = shift;
}

##</code><code>##

my $person = new Person;
$person->name('Me');