Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...
$main_loop->run;
ReadMode('normal'); # restore normal tty settings
__END__

Select or download this

#!/usr/bin/perl
use warnings;
...
}

ReadMode('normal');                  # restore normal tty settings