$output = `net use \\\\$server\\ipc\$ \"$password\" \/user:$domain\\$login`;


if ($output =~ /success/) {
     do_something();
} else {
     die "could not connect to $server!\n";
}