perl -MDBI -le 'use Data::Dumper; sub he {print Dumper(\@_);};my $h = DBI->connect("dbi:ODBC:does_not_exist", undef, undef, {HandleError => \&he});'
$VAR1 = [
          'DBI connect(\'does_not_exist\',\'\',...) failed: [unixODBC][Driver Manager]Data source name not found, and no default driver specified (SQL-IM002)',
          bless( {}, 'DBI::dr' ),
          undef
        ];