%locs = 
(one => '\d$\stuff,
two => '\d$\things,
three => '\d$\files')

%servers = 
{kwn => "\\server1"
krs => "\\server2"}
	
my $server = <STDIN>;
chomp $server;

my $loc = <STDIN>;
chomp $loc;