my $char = ReadKey 0;