#!/usr/bin/perl

use strict;
use warnings;
use Term::InKey;

while(my $key = ReadKey) {
   Clear;
   print "You typed: ".$key;
}