use strict;
        use Term::ReadKey;
        ReadMode 4; # Turn off controls keys
        my $key;
        while (not defined ($key = ReadKey(-1))) {
                print "Test\n";
        }
        print "Get key $key\n";
        ReadMode 0; # Reset tty mode before exiting