#!/usr/bin/perl
use strict;
use warnings;

package Employee;
use Person;

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

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

1;

=comment
    How can I use the method my $firstName = $object->getFirstName();
without creating the object?
=cut