#!/usr/bin/perl

use strict;
use Term::ReadKey;

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

ReadMode( 'normal' );

##</code><code>##

When I type 'c', I get this which is okay.
Character: c

When I hit 'the upper arrow', I get this output. 
Character: 
Character: [
Character: A