#### Globals.pm
package Globals;
use Exporter;
*tn = \%Track::by_name;
*ti = \%Track::by_index;
*bn = \%Bus::by_name;
our @ISA = 'Exporter';
our @EXPORT_OK = qw( %tn %ti %bn );

#### ChainSetup.pm
package ChainSetup;
use Globals qw( %tn %ti %bn );
print $tn{Master}->name;