my @result = ();
  my $result;
  eval {
    $result = $expat->parse($arg);	# <= Zeile 187
  };
  my $err = $@;
  if ($err) {
    $expat->release;
    die $err;
  }