use strict;
use warnings;
my ($xlink,@xlinkpaths);
my $stream = "streamname";
my @xlinks = (`cmd to get xlinks`) ;
	foreach $xlink (@xlinks) { 
		 @xlinkpaths =  
	}

my @exclpaths = (
    "wefwfewf/fewfff/",
    "btrtbrtb/gbrgbrg/rttty/",
 );


##</code><code>##

 incl -s streamname /./abc/def
   xlink /./abc/def from streamname 
incl -s streamname /./xyz/qwen/defs/asd
   xlink /./xyzz/qwen/defs/asd from streamname 

##</code><code>##

@xlinkpaths = (
 "abc/def/",
 "xyzz/qwen/defs/asd",
);

##</code><code>##

my @exclpaths = (
    "abc/def/",
    "xyzz/qwen/defs/asd",
    "wefwfewf/fewfff/",
    "btrtbrtb/gbrgbrg/rttty/",
);