my $o = IO::File->new("/dev/tty", "w");
my $i = IO::File->new("/dev/tty", "r");

newterm(undef, $o, $i);
endwin()