$ob = Win32::SerialPort->new($PORT) ;
$ob->baudrate(19200);
$ob->databits(8);
$ob->stopbits(1);
$ob->buffers(4096, 4096);

$ob->parity("none");
$ob->write_settings;
$ob->save($CONF);