sub GetDirFiles {
            my @files;
            my ($path) = @_;

            opendir (my $directory, $path) or die $!;
            while(readdir $directory) 
			    {
			        push (@files, $_) unless $_ =~ m/_ACK_/;
			      
			    }
			
            closedir $directory;

            return(@files);
}