sub GetINDirFiles {
    my ($path) = @_;
    my $min_age = 1 / 96;
    opendir DIR, $path or die $!;
#       my @files = readdir DIR;
#    my @files = grep {!/\_NSA|_\d+_\d+\.xml/} readdir DIR;
        closedir DIR;
my @files = grep {!/\_NSA|d+_\d+\.xml/ && (-M) > $min_age} readdir DIR;

    return(@files);
}