$con->Mode(ENABLE_WINDOW_INPUT | ENABLE_PROCESSED_INPUT);

##</code><code>##

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

##</code><code>##

chomp(my $data = <STDIN>);