#! /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";