#!/usr/bin/perl

my $X11_PORT = shift;
my $X11_USED_NAMESPACE_SOCKETS = shift;

for ($i=$X11_PORT; $displ_found ne "true"; $i++) {

	if( "$X11_USED_NAMESPACE_SOCKETS" =~ m/\|$i\|/) {
		$displ_found="false";
	} else {
	    $displ_found="true";
	    print $i;
	}

}
