#### Globals.pm

package Globals;
use Exporter;
our @ISA = 'Exporter';
our @EXPORT_OK = qw( %tn %ti %bn);
my $pkg = caller();
my $code = '*' . $pkg . '::tn = \%Track::by_name';
eval $code;
die "error: $@ in eval of code: $code" if $@;