if ($q->param("bloption") eq "add") {
  # add buddy code here
} elsif ($q->param("bloption") eq "delete") {
  # delete buddy code here
}