sub update_userstatus {
  my ($self, $uid, $new_status) = @_;
  my $sql = <<"EOM";
UPDATE $db{userdb}.$tables{userdata}
SET status = ?
WHERE id = ?
EOM
  #execute
}
...