$ man newwin
...
WINDOW *newwin(int nlines, int ncols, int begin_y, int begin_x);

##</code><code>##

use Curses;

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