print "\n\nANSWER";
   if (defined($default)) {
       print " [Default = $default]";
   }
   print ": ";
   ReadMode "raw";
   my $key = ReadKey(0);
   ReadMode "restore";
   if ($key eq "^H") { #Help Mode!
       $showHelpFlag = 1;
       redo;
   }
   chomp($answer = $key . <STDIN>);