use NCurses;

my $win = initscr();
noecho();
cbreak();
keypad( $win, True );
my $key = getch();
endwin();
say $key;