# Looking for entries in \\myhost.mycompany.com\results$\ matching a certain glob pattern
         my @sharedirs=glob("//myhost.mycompany.com/results\$/ART/$username*$uidstr");
         if(@sharedirs==0) {
          print "No result share found\n";
         } elsif(@sharedirs > 1) {
          print("No unique result share found\n",
         } else {
          my $sharedir=$sharedirs[0];
          print "Removing $sharedir\n";
          print "Removing of $sharedir was not successful\n" if rmtree($sharedir,1,1)==0;
         }