my $KeyPressed;
while (defined ($KeyPressed = $StdIn->InputChar(1)))