use Curses;
initscr;                      
$w=newwin(1,1,40,40);     
addstr(20,20,"Hello");
refresh;
endwin;