print "RULE_FILE :  $rulefile \n";

##</code><code>##

my $rulesdir = "C:\\Snort\\rules\\*.rules";

##</code><code>##

my $rulesdir = "C:\\Snort\\rules\\";

##</code><code>##

my $rulesdir = "C:/Snort/rules/";

##</code><code>##

@rulefiles = `ls $rulesdir\/*.rules`;

##</code><code>##

my $rulesdir = "C:\\Snort\\rules";
my @rulefiles = glob "$ruledir/*.rules";

##</code><code>##

for my $rulefile (@rulefiles){
    open my $INFILE, "<", $rulefile or die "Can't open  $rulefile $!";
    my @rules = <$INFILE>;
    close $INFILE;
}