#Use another package
package MSApps;
{
  our $MSApps::EXCEL = 'Excel.Application';
  our $MSApps::WORD = 'Word.Application';
}

## Then
use MSApps;
my $excel = Win32::OLE->GetActiveObject($MSApps::EXCEL)