#!/usr/bin/perl

use Win32::Console;

$con = Win32::Console->new();

$con->Mode(ENABLE_WINDOW_INPUT,ENABLE_PROCESSED_INPUT,ENABLE_LINE_INPUT,ENABLE_ECHO_INPUT,ENABLE_PROCESSED_OUTPUT,ENABLE_WRAP_AT_EOL_OUTPUT);

$con->Display;

$con->Write("Please enter the agent ID number: "); # I want to wait for input here, but apparently the ReadChar below doesn't do that

@info = $con->Info();

$con->Write("The cursor info is ",$info[3],",",$info[4],". \r"); # This presently prints no cursor data

$port = ($con->ReadChar(3,$info[3],$info[4]));

$con->Write("The port number to use is ",$port);