#!/usr/bin/perl

use warnings;
use strict;

use Win32::SerialPort;

my $serial_port = new Win32::SerialPort('COM3');

$serial_port->handshake('none');
$serial_port->baudrate(9600);
$serial_port->parity('odd');
$serial_port->databits(7);
$serial_port->stopbits(1);
$serial_port->buffers(256, 256);
$serial_port->read_interval(0); #RI
$serial_port->read_const_time(20); #RC
$serial_port->write_char_time(1); #WM
$serial_port->write_const_time(100); #WC

$serial_port->write_settings || undef $serial_port;

$serial_port->save('pump.cfg') if $serial_port;