archive
.2005
..12
...420.xml
..11
...419.xml
..10
...418.xml
...417.xml
.2004
..9
...416.xml
..7
...415.xml
.2003
..5
...414.xml
..4
...413.xml
..2
...412.xml
##</code><code>##

#!/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("..");

##</code><code>##

my @files = loopDir('./');