sub client_error {
    my ($errno, $func, $text) = @_;
    print qq|<font size="5">Error</font><p>\n|;
    print qq|<pre>ODBC Error Code: $errno</pre><p>\n|;
    print qq|<pre>[$func]$text</pre>\n|;
}
$r = $c -> sql_free_handle ($SQL_HANDLE_ENV, $evh);
if ($r != 0) {
    ($rerror, $sqlstate, $native, $text, $textlen) = 
    $c -> sql_get_diag_rec ($SQL_HANDLE_ENV, $evh, 1, 255);
    &client_error ($r, 'free_connect cnh', $text);
}

Example 9: Printing errors generated by ODBC peer client calls.