use Win32::SerialPort;
use strict;
use warnings;
my $Port = "COM9"; # port to watch
my $Baud=15200;
my $PortObj = Win32::SerialPort->new ($Port,1) || die "Can't Open $Port: $!";
$PortObj->write_settings || undef $PortObj;
print "Can't change Device_Control_Block: $^E\n" unless ($PortObj);
$PortObj->baudrate($Baud) || die "failed setting baudrate to $Baud";
$PortObj->parity("none") || die "failed setting parity";
$PortObj->databits(8) || die "failed setting databits";
$PortObj->handshake("none") || die "failed setting handshake";
my $rtn=$PortObj->write("help");
print $rtn;
sleep 1;
print "DONE\n";
undef $PortObj;
exit;