Test the value of the parameter named "bloption". For example, if your CGI object is $q, try:

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