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