use strict;
use Win32::SerialPort;

my $ob = Win32::SerialPort->new ('COM22') || die;


$ob->baudrate(9600);
$ob->parity("none");
$ob->parity_enable(1); 	# for any parity except "none"
$ob->databits(8);
$ob->stopbits(1);
$ob->handshake('none');
$ob->buffers(4096, 4096);

$ob->write_settings || die "cant write settings";
$ob->save("conf.cfg");

print "wrote configuration file conf.cfg\n";