sub local_readline {
    # ...
    ReadMode 4;
    while ( 1 ) {
        while ( defined ( my $key = ReadKey( -1 ) ) ) {
        # ...
        }
    }
    ReadMode 0
}