Help for this page
eval `/common/tools/mkAliases`
my $table = read_table(); foreach my $key (keys %$table) ... print "alias ${key}r '$table->{$key} root';\n"; # etc. }