sub TZMap {
    my $self = shift;
    if (@_) {
        $self->{TZMap} = {@_}
    }
    return $self->{TZMap};
}

##</code><code>##

sub check_timezones {
    # same as ...

    print Dumper { $self->TZMap() };

    # same as ...
}