Person.pm

package Person;

sub new {
  my ($class,$args) = @_;
  my $self = bless $args, $class;
  return $self;
}

sub self_introduction {
  my $class = shift;
  print 'My name is ' . $class->{name} . '.';
  print 'I am ' . $class->{age} . ' years old.';
}

1;