open (COMMAND, "rmtshare \\\\$server\\\$share\" |" ) or die "Eeek, unable to run rmtshare\n";
       	
       	while ( <COMMAND> ) {
       		
       		next unless /:/g;
       		next if /^Path/;
       		next if /^Permissions/;
       		chomp;
       		
       		if ( $_ ) {
       			
       			#$_ =~ s/\s+//g;
       			my ( $user, $perm ) = split( /:/, $_ );
       			$perm =~ s/FULLCONTROL$/FULL/;
       			$perm =~ s/FULL CONTROL$/FULL/;
       			$user =~ s/^\\Everyone/Everyone/;
       			$user =~ s/^\s+//;
       			$user =~ s/\s+$//;
       			$perm =~ s/^\s+//;
       			$perm =~ s/\s+$//;
       			print "$user:$perm\n";
       			
       		}
       		
       		
       	}
       	
       	close COMMAND;