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

##</code><code>##

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