use Term::ReadKey;
            my $done = 0;
            my $choice;
            ReadMode 4;
            while ( !$done )
            {
                if ( defined( $key = ReadKey(-1) ) )
                {
                     $choice = uc ( $key);
                     $done = 1 if $choice eq 'Q';
                }
            }
                                                                                
            ReadMode 0;