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

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