#!/usr/bin/perl
use strict;
my $done = 0;
my $choice;

while (! $done)
{
  print "Test\n";
  chomp ( $choice = uc (<>));
  $done = 1 if ( $choice eq "Q" )

}