use strict;
use Curses;
 
my $mwh = new Curses;
$mwh->addstr(8, $LINES-2, 'Initialized...');
$mwh->refresh;
sleep 2;
 
for (qw(Show_me_first I'm_second Third_then_quit))
{
  $mwh->addstr(8, $LINES-2, sprintf("%15s",$_));
  $mwh->refresh();
  sleep 2;
}

END
{
  endwin(); # Make Curses clean up after itself
}