if ($answer eq "add" || $answer eq "a") {
    &addlinks;
}
elsif ($answer eq "remove" || $answer eq "r") {
    &rmlinks;
}
else {
    exit 0;
}