$ perl -MO=Deparse,-p <<'EOT'
if ($answer eq "add" || "a") {
&addlinks;
} elsif ($answer eq "remove" || "r") {
&rmlinks;
} else {exit 0;
}
EOT
if ((($answer eq 'add') or 'a')) {
    &addlinks;
}
elsif ((($answer eq 'remove') or 'r')) {
    &rmlinks;
}
else {
    exit(0);
}
- syntax OK