my $ob = Win32::SerialPort->new("COM5") || die("Couldn't open COM5");
$ob->baudrate(19200);
$ob->parity("none");
$ob->databits(8);
$ob->stopbits(1);
$ob->handshake("none");
$ob->write_settings || die("Couldn't write serial port settings");