I'm happy to say that I've figured out how to clear the keyboard buffer and prevent the annoying type-ahead:

use Term::ReadKey;

...
clear_keys();
print MORE $message;
...

sub clear_keys {
    while (my $key = ReadKey(-1)) {
    }
}
[download]