$s = qx(net share); 
if ($s =~ m/Users/){ 
  say "Share USERS ist belegt";
};"