use Term::ReadKey;

open (my $keypad, '</dev/keypad') or die "couldn't open device /dev/keypad: $!"
my $result = ReadLine 5, $keypad;
close $keypad;