#! /usr/bin/perl

use HotKey;

loop {
	$key = readkey();  
	print "you printed - $key \n";
} until $key eq 'a';