#!/usr/bin/perl

my @files;
loopDir('./');
print "found xml-files $#files..\n";

sub loopDir {

local ($dir) = @_;
chdir $dir or die "Cannot chdir to $dir\n";
local(*DIR);
opendir DIR, '.';

while ($f=readdir(DIR)) {

        next if $f =~ /^\./;
        push @files, $dir . '/' . $f if $f =~ /.*\.xml$/;

        if (-d $f) {
                &loopDir($f);
        }
}
closedir(DIR);
chdir("..");