use strict;
use Cwd;

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