package Person;
use warnings;
use strict;
sub new {
my $class = shift;
my $self = {@_};
bless($self, $class);
return $self;
}
1;
#!/usr/bin/perl
use Person;
my $object = Person->new (
surname => "G",
forename => "G",
address => "Apts.",
occupation => "tester"
);
print "This person's surname: ", $object->surname, "\n";