Select Code to Download

 
my $file= File::Tail -> new ("C:\\Snort\\log\\test3\\8_8.log");
my @alert; 
...
        push @alert, $line;
    }#end else
}#end while

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