...
our @ISA = qw(Person);    # inherits from Person

my $firstName = $object->getFirstName();
print "This is the first name: " . $firstName . "\n";