while (defined (my $char = ReadKey -1))