use strict;
use warnings;
# use dignostics;

print "RULE_FILE :  $rulefile \n";
$rulesdir="C:\\Snort\\rules\\*.rules";
@rulefiles = `ls $rulesdir\/*.rules`;
$camfile = "camdata.txt";

# print "RULE_FILE :  $rulefile \n";


for $rulefile(@rulefiles){
open(INFILE, "<".$rulefile) or die "Can't open ".$rulefile."\n";
@rules=<INFILE>;
close(INFILE);

# $headerParts = 0; # why bhave I taken a header part here?
# $headerParts++;
for($rule =~ /alert/) 

# $prule = $rule;
$prule = substr($prule, 0, index($prule, '('));
print "extracted header :  $prule \n";
}



# Store header-part
 # if ($headerParts == 1){
# push(@prules, $prule);
 }