use strict;
use warnings;
use Win32::SerialPort;
my $loggedin = 0;
my $term = Win32::SerialPort->new('COM1') or die "bad COM1\n";
$term->baudrate(9600);
$term->databits(8);
$term->parity("none");
$term->parity_enable(0);
$term->stopbits(1);
$term->handshake('xoff');
$term->user_msg(1);               # misc. warnings
$term->error_msg(1);              # hardware and data errors
$term->read_interval(1000);       # max time between chars 1000 ms (1 
+sec)
$term->read_interval(0xffffffff); # non-blocking read
$term->write_settings;
$term->write("\r");
my $esccount = 0;
while ($prompt !~ /Supervisor Name :/) {
    die "$esccount attempts to contact the PBX have failed." if $escco
+unt++ > 10;
    # loop sending ESCs until we get the login prompt
    $term->write("\e");
    sleep 2;
    ($count, $prompt) = $term->read(2000);
}
# we should now be at the Supervisor Name prompt
$term->write("REPORTS\r");
sleep 2;
($count, $prompt) = $term->read(2000);
if ($prompt =~ /Password\s+:/) {
    $term->write("REPORTS\r");
    sleep 3;
    ($count, $prompt) = $term->read(2000);
    if ($prompt =~ /Main Menu/) {
        $loggedin = 1;
    }
}
. . .
[download]

What you have:

• A minimal linux system
• A rs232 connection from a windows machine to the linux machine controlled by Teraterm

You want to run Perl scripts on the windows machine that will do things to the linux box.(?)

A quick look at Teraterm shows that there is no API available for it, thus no simple way to control Teraterm from Perl and thus straight forward way to pass things through Teraterm to the linux machine. Thus, Teraterm is unlikely to be part of your solution.

The only thing I can think of to try is to set up the rs232 connection as a network to get tcpip over rs232. Then I would use something like Net::SSH in my Perl scripts on the windows machine to automate whatever it is you want to accomplish on the linux machine. That assumes of course that the minimal linux machine is ssh capable.

It would be helpful to undestand a bit better what you want to do via this connection: Are you manipulating things on the linux box?..or are you just simply sending commands to it?...

Hope that is at least somewhat helpful...

Thanks for your response. There is firmware on the Linux box that has .sh files. I would like to run those scripts from perl, loop though them x amount of times, and gather data. I agree teraterm will not work, I believe your assesment is accurate. I need to setup an rs232 connection and use ssh to run the script files.