Help for this page

Select Code to Download

Select or download this

while ( my $in = $main->getch () ) {
    # Do stuff here.
}