my $file= File::Tail -> new ("C:\\Snort\\log\\test3\\8_8.log");
my @alert; 
my $line; 

my @localTime=localtime;
my $localDate = sprintf "%02d%02d%04d", $localTime[4]+1, $localTime[3], $localTime[5] +1900;

while (defined ($line = $file->read)){
		if($line =~ /^\=\+\=/){
			my @local = localtime; 
			my $date = sprintf "%02d%02d%04d", @local[4]+1, @local[3], @local[5] +1900;
			if ($localDate !~ m/$date/){
				$localDate = $date;
				process(@alert);
				@alert = ();
				my $snortFile = "C:\\Snort\\log\\test3\\8_8.log";
				open WRITESNORT, ">", $snortFile or die "Could not open write file.";
				print WRITESNORT "";
				close (WRITESNORT);
			}else{
			process(@alert);
			@alert = ();
			}#end else  
	}else{
		push @alert, $line;
	}#end else
}#end while 

##</code><code>##

my $writeFile = "C:\\Snort\\log\\test3\\$localDate.log";