Select Code to Download

my %locs = (
    one   => '\c$\files',
...

print $servers{$server}, "\n";
print $locs{$loc}, "\n";