Trouble registering enter key.

[LazarusHC]

I'm currently trying to learn perl as well as perl curses. I found this script, and I understand why it's supposed to work, but I don't understand why it doesn't.
The idea is that pressing "enter" selects one of the menu entries, and if any other key is pressed, is prints "Character pressed is $c". The numbers work as expected, but if you press a letter, it acts like you've pressed enter.

#!/usr/bin/perl
#
# Copyright (C) 2003 by Virtusa Corporation
# http://www.virtusa.com
#
# Anuradha Ratnaweera
# http://www.linux.lk/~anuradha/
#


use Curses;

$width = 30;
$height = 10;
$startx = 0;
$starty = 0;

@choices = (
    "Choice 1",
    "Choice 2",
    "Choice 3",
    "Choice 4",
    "Exit"
);

$n_choices = @choices;

$highlight = 1;
$choice = 0;

initscr();
clear();
noecho();
cbreak();
$startx = ($COLS - $width) / 2;
$starty = ($LINES - $height) / 2;

$menu_win = newwin($height, $width, $starty, $startx);
keypad(1);
keypad($menu_win, 1);
addstr(0, 0, "Use arrow keys to go up and down, Press enter to select a choice");
refresh();
print_menu($menu_win, $highlight);

while (1) {
    $c = getch($menu_win);
    if ($c == KEY_UP) {
	if ($highlight == 1) {
	    $highlight = $n_choices;
	}
	else {
	    $highlight--;
	}
    }
    elsif ($c == KEY_DOWN) {
	if ($highlight == $n_choices) {
	    $highlight = 1;
	}
	else {
	    $highlight++;
	}
    }
    elsif ($c == '\n') {
	$choice = $highlight;
    }
    else {
	addstr($LINES - 2, 0, "Character pressed is $c");
	refresh();
    }
    print_menu($menu_win, $highlight);
    last if ($choice);
}

addstr($LINES - 2, 0, "You chose choice $choice with choice string $choices[$choice-1]");
getch();
clrtoeol();
refresh();
endwin();

sub print_menu {
    $menu_win = shift;
    $highlight = shift;

    $x = 2;
    $y = 2;
    box($menu_win, 0, 0);
    for ($i = 0; $i < $n_choices; $i++) {
	if ($highlight == $i + 1) {
	    attron($menu_win, A_REVERSE);
	    addstr($menu_win, $y, $x, $choices[$i]);
	    attroff($menu_win, A_REVERSE);
	}
	else {
	    addstr($menu_win, $y, $x, $choices[$i]);
	}
	$y++;
    }
    refresh($menu_win);
}

[jlarson]

I know it's a little late, but if anyone else has this problem I figured I might as well post.

Line 63 is incorrect. This code was ported from C, where == works for everything, but perl likes to do things a little differently.

This:

elsif ($c == '\n')

should be:

elsif ($c eq "\n")