my (@files, @images);
my $recurse = 1;