Select Code to Download

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

print "here is the boss\n";
print Dumper($boss);

package Boss1;
use Employee4;
@ISA = qw(Employee4);

1;

package Employee4;
##
...
}
1;

package Person5;
##
...
 The Person class implements dah dee dah dee dah....
=cut
1;

Don Federico Jesus Pichon Alvarez is age 47.
His peers are: PEON=FRANK, PEON=FELIPE, PEON=FAUST
...
               }, 'Boss1' );
Destroying $self Fred at ./testboss1.pl line 0
All persons are going away now