my $ob = Win32::SerialPort->new ($port1) || die "Can't open $port1:$!";
$ob->baudrate (9600) || die "fail setting baudrate";
$ob->parity ("even") || die "fail setting parity";
$ob->databits (7) || die "fail setting databits";
$ob->stopbits (1) || die "fail setting stopbits";
$ob->handshake ("xoff") || die "fail setting handshake";
$ob->write_settings || die "no settings";

my $tx="L1234567890 -k .033 -0 -8.516,0 -7 .0025%\r";

$ob->write("$tx") or die ("Could not write to PC: $!");

sleep 3;

my $return;
$return = $ob->input;
undef $ob;