use strict;
use warnings;

use Term::ReadKey;
$| = 1;

ReadMode 'raw';

while(){
	my $char = ReadKey; 
	# infinite, unbreakable looop without this check
	if ( $char eq 'x' ){
		# broken console on Linux without this!
		ReadMode 'restore';
		last;
	}
	print "[$char]";
}