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