创建或修改数据库对象

# do方法
my $stmt = qq(CREATE TABLE T1(ID INT, COL VARCHAR(20)););
my $rv = $dbh->do($stmt) or die $DBI::errstr;
if( $rv < 0 ){
   print $DBI::errstr;
}else{
    print "Create Success\n";
}