## testing to see if the 'do' command worked:

my $dict = do "a.pl" or die "could not load for reading: $!, $@";

my $test = $dict{'anode'}{def};

print "test: $test\n";