if (my $ex = Win32::OLE->new('Excel.Application')) { ... } else { # fehlermeldung }