#! /usr/bin/env perl

use strict;
use warnings;

use Term::ReadKey;

ReadMode "raw";
my $key = ReadKey(0);
ReadMode "restore";
print "Backspace detected!\n" if ($key eq "^H");

my $foo = <STDIN>;
print "ASCII Code Value = " . ord($key) . "\n";
print "Complete Answer = " . $key . $foo . "\n";
print "You typed a \"$key\"\n";

##</code><code>##

   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>);