open( my $cfg, "<", $configfile ) or die "Can't open < $configfile: $!" ;
my @files = () ;
while( my $f = <$cfg>) {
	chomp $f ;
	# print "f=$f\n" ;
	opendir(my $dh, $f) or die "ERR: Can't open directory $f: $!";
	push @files, map { "$f\\$_" } grep { -f "$f\\$_" } readdir($dh);
	closedir($dh) ;
}
foreach ( @files ) {
	print "$_\n" ;
}