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();