$Win32::OLE::Warn = 3; # Die on Errors.

my $excelfile = 'C:/perlpractice/FU_HMI_List.xlsm';

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
           or  Win32::OLE->new('Excel.Application', 'Quit')
           or  die Win32::OLE->LastError(); 

my $Book = $Excel->Workbooks->Open($excelfile) or die Win32::OLE->LastError();
my $Sheet = $Book->Worksheets(3) or die Win32::OLE->LastError();