Select Code to Download

package Person;
    use Carp;
...
        bless $self, $class;
        return $self;
    }

sub AUTOLOAD {
        my $self = shift;
...
            return $self->{$name};
        }
    }