There is a code I would like to get output with Perl DBI "Table created":

```
use DBI;
use DBD::Oracle qw(:ora_session_modes);

$dbh=DBI->connect( "dbi:Oracle:", "", "", { ora_session_mode =>
      ORA_SYSDBA , RaiseError => 1, PrintError => 1 } );
$dbh->do(qq{  create table test ( customer_id number(10) NOT NULL )    } );

```

How can I get this output "Table created" from DBI?