package Person;
use warnings;
use strict;
sub new {
my $self = {};
bless ($self, "Person");
return $self;
}
1;
#Now we can use our Person class to create an object:
#/usr/bin/perl
use warnings;
use strict;
use Person;
my $person = Person->new();