# set DB and SQL values as necessary use DBI; $dbh = DBI->connect "$DB_SERVER:$DB_NAME;$DB_HOST") or die "Can't connect to $DB_NAME, error "; $sth = $ccmd_auth::dbh->prepare($sql) or die "Can't prepare $sql: $dbh->errstr\n"; $sth->execute; $sth->finish;