use Curses;

initscr;
my $w = newwin(40,40,1,1);
$w->addstr(20,20,"Hello");
$w->refresh;
endwin;
<>;