Select Code to Download

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

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

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

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