my $options = { RaiseError => 1, PrintError =>1 };
my $dbh = DBI->connect( $dsn, $username $password, $options )
  or die;
$dbh->{ShowErrorStatement} = 1;
$dbh->{HandleError} = sub { Carp::Confess( $_[0] };
[download]

Carp::Confess( @_ ) gives warning within Carp itself ...

Display of bind parameters is scheduled for the next release of DBD::Oracle. Tim published a patch in the dbi-users mailing list for DBD::Oracle version 1.12.