Select Code to Download

#
# Use Win32::Serial port on Windows otherwise, use Device::SerialPort
...
      die "$@\n" if ($@);
   }
}

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