#!/usr/bin/perl

use strict;
use warnings;
use Curses;

initscr;
addstr(10, 15, "mystuff");
refresh;
sleep 3;
addstr(10, 15, "OVERWRITE");
refresh;
sleep 3;
endwin;

__END__