Help for this page
use Curses::UI; my $cui = new Curses::UI( -color_support => 1); $cui->{-read_timeout} = 0;
my $last = time; ... sleep(0.01); } }
#!/usr/bin/perl -w ... sleep(0.01); } }