## my $action = $q->param('action'); # this is assuming you're using CGI.pm; if ($action eq 'add') { &addBuddy; else { &deleteBuddy; }