use strict;
use Term::ReadKey;

print qq(Please enter a character: );

ReadMode 'cbreak';
my $ans = ReadKey(0);
ReadMode 'normal';

print qq(\nYour character is '$ans'\n);<p>