sub GetINDirFiles {
    my ($path) = @_;

    opendir DIR, $path or die $!;
    my @files = readdir DIR;
    my @files = grep {!/\_ACK_/} readdir DIR;
    closedir DIR;

    return(@files);
}