my $mtime = stat("$local_dir/$file")->mtime;

##</code><code>##

        next unless (-f "$local_dir/$file"); # File was moved in the meantime already?!

##</code><code>##

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