my $dsn = 'dbi:JDBC:hostname=127.0.0.1:9001;url=jdbc:oracle:thin:@192.168.153.100:1521:cudb;';
my $dbh = DBI->connect($dsn, undef, undef, { PrintError => 0, RaiseError => 1, jdbc_properties => \%properties }) or die "Failed to connect: ($DBI::err) $DBI::errstr\n";
#my $sql="select from user where status=1";  #success
#my $sql="update user set status=1";         #hang
#my $sql="insert into user(status) values(1) "; #success
my $sql="delete from user where status=1";  #hang
my $sth=$dbh->prepare($sql);
$sth->execute;