#!/usr/bin/perl -w
#
use strict;

my $pathinput="D:\\WebLogs\\import\\";
my $filesinput="*.log";

my @filelist = glob($pathinput.$filesinput);
foreach my $AnalyseFile (@filelist) {
print $AnalyseFile , "\n";

open(READLOG,$AnalyseFile) || die("Cannot Open File");


my@AnalyseLines=<READLOG>; Code:
Original - my@AnalyseLines=<READLOG>; Code 
my@AnalyseLines=<READLOG>;  
 
my @AnalyseLines=<READLOG>;

close(READLOG);
}