#!/usr/bin/perl -w
use strict;
use Curses;

initscr();
addstr(10, 10, "foo");
refresh();
sleep 2;
endwin();

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Curses;

initscr();           # omit this line for same result
my $win = new Curses;
#$win->initscr();    # including this causes no display
$win->addstr(10, 10, 'foo');
$win->refresh();
sleep 2;
$win->endwin();