Select Code to Download

package Person;
my %WARN;
sub get_warnings {
    return \%WARN;
};

package Employee;
use Data::Dumper;
...
    my $warnings_by_person = Person::get_warnings;
    warn Dumper $warnings_by_person;
};