use Term::ReadKey qw ( ReadKey ReadMode );

sub DumpKeyboard () {
   # Dump the contents of the keyboard buffer, if any
   my $Trash;

   ReadMode 4; # Turn off controls keys
   while  ( defined ( $Trash = ReadKey ( -1, \*STDIN ) ) ) {
      # print "\$Trash = $Trash\n";
   }
   ReadMode 1; # Reset tty mode before exiting
}