The Constructor

package Person;

sub new {
  my $class = shift;

  return bless { @_ }, $class;
}

1;