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/",
 );