you can use Term::ReadKey to read characters from STDIN

use Term::ReadKey;
#ctrl-c will exit out
ReadMode 'cbreak';
while (1) {
    my $key = ReadKey(0);
    print "$key\n";
}
ReadMode 'normal';
[download]