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

my $key = ReadKey(0);
print "$key \n";