Help for this page
$con->Mode(ENABLE_WINDOW_INPUT | ENABLE_PROCESSED_INPUT);
$con->Write("The cursor info is $info[3],$info[4].\n");
chomp(my $data = <STDIN>);