| Current Path : /usr/share/doc/perl-Curses-UI-0.9609/examples/ |
| Current File : //usr/share/doc/perl-Curses-UI-0.9609/examples/hello_world |
#!/usr/bin/perl -w
use strict;
use FindBin;
use lib "$FindBin::RealBin/../lib";
use Curses::UI;
my $cui = new Curses::UI (-clear_on_exit => 1);
$cui->dialog("Hello, world!");