#!/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 ($c ne "")
	{	print $c;	
	}
}

ReadMode(0);