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