#!/usr/bin/perl -w
use strict;
my $results = `net use f: \\\\SERVER\\c\$ 2>&1`;
print "results contains ($results)\n";

##</code><code>##

results contains (System error 67 has occurred.

The network name cannot be found.
)