($r, $sqlstate, $native, $text, $textlen) = 
  $client -> sql_get_diag_rec ($SQL_HANDLE_DBC, $cnh, 1, 255);

Example 4: Perl ODBC peer-to-peer function call.