use Win32::Console;

$StdIn = new Win32::Console(STD_INPUT_HANDLE);

my $key;
while (!(defined @event)) {
	@event = $StdIn->PeekInput();
	#@event = $StdIn->Input();
	$key = chr($event[5]);
}
print join(" ", @event),"\n";
print "Got key $key!\n";