Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

MDXI / Curses-UI-0.9609 / examples / hello_world 

            

              
1
2
3
4
5
6
7
8
9

              
#!/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!");