#!/usr/bin/env perl
use Curses;
my $win = Curses->new  or die "Can't get new window\n";
initscr();
noecho();        
raw(); 
nodelay(1); 
$win->keypad(1); 
 $win->addstr ("Try press key\n")
 while ((my $key = $win->getch()) ne ERR) {
        $win->addstr ("key $key\n"); #<-breackpoint
    }