Missing REQUIRED setting for BAUD at Foo.pm line 35
write_settings failed, closing port at Foo.pm line 35
Failed to write settings at Foo.pm line 35.

##</code><code>##

my $Serial = new Win32::SerialPort('COM1') or die "Serial port died";
$Serial->baudrate(115200);
$Serial->parity('none');
$Serial->databits(8);
$Serial->stopbits(1);
$Serial->handshake('none');
$Serial->buffers(4096, 4096);
$Serial->error_msg(1);
$Serial->user_msg(1);
$Serial->write_settings || die "Failed to write settings";