input. et char af gangen

Dette har selvfølgelig intet med indernettet at gøre...

eksempel:

#!/usr/bin/perl -w

use Term::ReadKey;
ReadMode('cbreak');
print("Press keys to see their ASCII values. Use Ctrl-c to quit\n");

while(1) {
$char = ReadKey(0);
last unless defined $char;
printf(" Decimal: %d\tHex: %x\n", ord($char), ord($char));
}
ReadMode('normal');