my $StdIn = new Win32::Console( STD_INPUT_HANDLE );
$StdIn->Mode( ENABLE_PROCESSED_INPUT);
my $console = new Win32::Console();
$console->Cls( $FG_WHITE | $BG_GREEN );
while (1) {
        my $x = rand(10);
	$console->WriteChar($x,10,12);
	$console->Display();
	$console->Cursor(0,22);
        my $Data = $StdIn->InputChar(1)
        if (lc $Data eq "q") {
		exit;
	}
}