use Curses;
initscr;
$win = new Curses;
$win = newwin(40,40,1,1);
$win->addstr(20, 20, 'Hello');
$win->refresh;
while (1) {};
endwin;