You're misusing functions left and right. First, the Mode method requires a single argument; the modes must be ORed together:

$con->Mode(ENABLE_WINDOW_INPUT | ENABLE_PROCESSED_INPUT);
[download]

Next, the Write method takes a single argument (this is totally poor planning, I think). So you need to write things like:

$con->Write("The cursor info is $info[3],$info[4].\n");
[download]

And finally, the ReadChar method is for getting text that is already on the screen. You don't want that -- you want to get input from the user. To do that, I found that I can just read text normally:

chomp(my $data = <STDIN>);
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;