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