Perl : eval example

      eval {$rc->invoke;};
      if ($@)    {
          warn "RFC Error: $@\n";
          $conn = SAPNW::Rfc->rfc_connect();
          $rd = $conn->function_lookup("Z_BACKFLUSH_BY_WO_CONFIRM");
      }