#!/usr/local/bin/perl5  # Use Perl 5
use Term::ReadKey;

my $c = "";
ReadMode(5);

while ($c ne "q")	# Press q to exit
{	$c = ReadKey(-1);

	if (ord($c) == 0)
	{	$c .= ReadKey(-1);
	}
	
	if ($c ne "")
	{	print ord $c;	
	}
}

ReadMode(0);