$sth = prepare (qq~execute new_registrations $uid $pass $charactername $realname $email~) or die "Could not prepare statement: $DBI::errstr; stopped";