my $server = "<IP-Adresse>";
system ('net use w: \\\\' . $qs_srv_adr. '\\E$');