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";