if ($answer eq '1') {
    error_entry ();
} elsif ($answer eq '2') {
    warning_entry ();
} else {
    die "Expected 1 or 2 for the answer. Got $answer\n";
}