Perl 数据库操作

use DBI;
use DBD::Oracle;

my $dbname="dbi:Oracle:dwname";
my $user="xxxx";
my $passwd="oo";
my $dbh=DBI->connect($dbname,$user,$passwd,{AutoCommit => 0}) or die("connect oracle error\n");

my $sh=$dbh->prepare($sql);
                                     $sh->execute();

$dbh->commit();