#!/usr/bin/perl

use warnings;
use strict;
use Term::ReadKey;

# read a char directly from a keyboard via /dev/wskbd1
open(my $fh, '<', '/dev/wskbd1') or die "Couldn't open Keyboard\n";

ReadMode(5,$fh);
my $key = ReadLine(0, $fh);
print "You entered $key\n";
ReadMode('normal',$fh);

close($fh);