#!/usr/bin/perl

use Term::ReadKey;

ReadMode 5; # Turn off controls keys
while (1) {
  while (not defined ($key = ReadKey(-1))) {
    print "Foo\n";
    sleep (1);
  }
  print "Get key $key\n";
  ($key eq 'q') and last;
}
ReadMode 0; # Reset tty mode before exiting