#!/usr/bin/perl
use strict;
use warnings;
use Term::ReadKey;

ReadMode 'cbreak'; #or preferably 'noecho'
print "Hit a key: ";
my $c = ReadKey 0;
print "You typed $c\n";
ReadMode 'restore';