my $ex = Win32::OLE->new('Excel.Application') or do {
    # Fehlermeldung
};