use Term::ReadKey;

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

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