if ($Excel = Win32::OLE->GetActiveObject('Excel.Application')
       || Win32::OLE->new('Excel.Application', 'Quit')) {
    print "\n123 \n";
  }
  else {
    print "\n456 \n";
  }