undef $^E;
undef $!;
undef $?;
print "using system \n";
system("net use v: \\\\SERVERNAME\\SHARENAME"); 
print "dollar caret E reports          $^E \n";
print "dollar Exclamation mark reports $!  \n";
print "dollar question mark reports    $?  \n";  
print "using backticks \n";
`net use v: \\\\SERVERNAME\\SHARENAME`; 
print "dollar caret E reports          $^E \n";
print "dollar Exclamation mark reports $!  \n";
print "dollar question mark reports    $?  \n";