#!/usr/bin/perl -w
use strict;
use Term::ReadKey;
my $done = 0;
my $choice;
my $key;
ReadMode 4;

while (! $done)
{
  if (defined($key = ReadKey(-1)))
  {
    print "Test\n";
    $choice = uc ($key);
    $done = 1 if ( $choice eq "Q" )
  }
}
ReadMode 0;