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

##</code><code>##

package Employee;
use Data::Dumper;

sub frobnicate {
    my $warnings_by_person = Person::get_warnings;
    warn Dumper $warnings_by_person;
};