perl -e 'use DBI;$h = DBI->connect("dbi:Oracle:","xxx","xxx",{RaiseError => 1,PrintError => 0});my $r; eval{$r = $h->selectrow_arrayref("select 1 from dualxx")};if ($@) { print "Error $@ and DBI err is $DBI::err";} else {use Data::Dumper;print Dumper($r);}'