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