while (defined(my $file = readdir($DH)) {
        next unless ($file =~ m/\.xml$/);