$sql = qq{ UPDATE wms_rf_server_port SET available = ?, last_updated_by = ?, last_updated_date = ? WHERE port_id IN ( $port_ids ) }; eval { $rows = $dbh->do($sql,undef,$available,$0,_timestamp()); $dbh->commit(); }; if ($@) { _DB_ErrorHandler($@); $dbh->rollback(); }