use Curses;
...#initialization stuff
my $char=getch();