foreach my $file (map "$export_dir\\$_", grep !/^\./, readdir EXPORTDIR) {
            my $mtime = (stat("$export_dir\\$file"))[9];