my $port = Win32::SerialPort->new( "COM4" );
$port->baudrate(57600);
$port->databits(8);
$port->stopbits(1);
$port->parity("none");
$port->read_const_time(1000);
#$port->stty_clear("0");
$port->pulse_dtr_on(300);