use strict;
use Curses;

my $screen = Curses->new();

# Enable keypad functionality
keypad(1);

while (my $key = getch()) {
        do { printw("KEY_LEFT\n");  refresh(); next } if $key eq KEY_LEFT;
        do { printw("KEY_RIGHT\n"); refresh(); next } if $key eq KEY_RIGHT;
        last;
}

exit 0;