Help for this page
my $Book = $Excel->Workbooks->Open($files[$x]) or die " $! ";
my $Book = $Excel->Workbooks->Open($files[$x]) || die " $! ";