my $IS_WINDOWS = ($^O eq "MSWin32" or $^O eq "cygwin") ? 1 : 0;
if ($IS_WINDOWS) {
   $serial = new Win32::SerialPort ($port, 1);
} else {
   $serial = new Device::SerialPort ($port, 1);
}