Select Code to Download

  sub err_handler {
      my($err, $sev, $state, $line, $server,
...
      print STDERR join("\n",@msg);
      return 0; ## CS_SUCCEED
  }

 $dbh = DBI->connect('dbi:Sybase:server=troll', 'sa', '', 
                    { syb_err_handler => \&err_handler });