Select Code to Download

use strict;
use Cwd;
...
my $excelfile = 'UE_NW_Parameters.xlsx';
my $Book = $Excel->Workbooks->Open($dir."\\".$excelfile)
  or die Win32::OLE->LastError();