my $cmd = "net use Q: \\\\137.201.176.204\\share"
system($cmd);