this is my program:

use DBI;
use Error qw(:try);
#-
my $username = "SCOTT";
my $password = "TIGER";
my $hostname = "192.168.0.14";
my $dbh;
my $sth;
my $sql;
#-
try{
    $dbh = DBI->connect('dbi:Oracle:host='.$hostname.';sid=ORCL;port=1521;server=dedicated', $username,$password,{RaiseError => 1,AutoCommit => 0});
    try{
       $sql =qq{ INSERT INTO PROVAXX VALUES('RICCARDO', 1) };
       $sth=$dbh->prepare( $sql );
       $sth->execute;
       print "\n * insert ok \n";
    }otherwise{
       $dbh->rollback();
       print "\n * Error insert \n";
    };
    $dbh->disconnect;
}otherwise{
    print "\n * Error connect \n";
};
--------------------------- Result is:
DBD::Oracle::st execute failed: ORA-00942: table or view does not exist (DBD ERROR: error possibly near <*> indicator at char 13 in ' INSERT INTO <*>PROVAXX VALUES('RICCARDO', 1) ') [for Statement " INSERT INTO PROVAXX VALUES('RICCARDO', 1) "] at d:\perl\job\pgm_3.pl line 17.

* Error insert
--------------------------- I want this result:

* Error insert
---------------------------