Select Code to Download

use Person;
use strict;
...
    $person->name($_);
    push @employees, $person;
}

foreach my $employee (@employees) {

    print $employee->name(), "\n";
}

    print ref($employee), "\n";

package Person;

...
}

1;