Welcome to the MRV Communications' LX Series Server
Port 0 Speed 9600
Login: InReach
Password: ********

{ screen refresh and blank, then }
InReach:0 >

##</code><code>##

#!C:/Perl/bin/perl.exe

use warnings;
use strict;
use Win32::SerialPort;

my $response;

my $port = Win32::SerialPort->new("COM1");
$port->user_msg(1);
$port->error_msg(1);
$port->baudrate(9600);
$port->databits(8);
$port->parity("none");
$port->stopbits(1);
$port->handshake("xoff");
$port->buffers(8192, 8192);
$port->are_match(":", ">", ">>", "\n");
$port->write_settings;

$response = $port->input;
print "DEBUG: response1 = $response\n";

$port->write("InReach\r");
sleep 1;
$response = $port->input;
print "DEBUG: response2 = $response\n";

$port->write("********\r");
sleep 1;
$response = $port->input;
print "DEBUG: response3 = $response\n";

$port->write("exit\r");
sleep 1;
$response = $port->input;
print "DEBUG: response4 = $response\n";

##</code><code>##

C:\Users\MyID\Documents\Perl\Test>SerialPortTest.pl
DEBUG: response1 =
DEBUG: response2 = InReach
Password:
DEBUG: response3 = ********
InReach:0 >exit��[H��[2J��[2J
Disconnected
��[H��[2J
Welcome to the MRV Communications' LX Series Server