use Curses::UI;
my $cui = new Curses::UI (-clear_on_exit => 1);
$cui->dialog("Hello World!");