#!/usr/bin/perl

use strict;
use Term::ReadKey;

ReadMode( 'cbreak' );
while (1) {
    my $char = ReadKey( 0 );
    print "Character: $char\n";
}

ReadMode( 'normal' );