Select Code to Download

use Term::ReadKey;
use strict; 
...
    while (defined ReadKey(-1)) {}; # eats up keys in buffer 
    ReadMode 0;    # set to normal mode
}