#Read in files for IDSLOGS. 
use:OLE;

use IO::File;

$dir= shift || '.';

opendir DIR, $dir or die "Can't open directory $dir: $!\n";

while ($file= readdir DIR) {
	next if $file=~/^\./;
        print $file;
	open (FH, "$file") or die "Can't open file $file: $!\n";
        my @file_lines=<FH>;
        
        close FH;
        foreach my $line (@file_lines) {
        #search for a match here like I do above
        # but it doesn't work why not? 
        }
       
}
print "processed $count lines";