#
# Use Win32::Serial port on Windows otherwise, use Device::SerialPort
#;
BEGIN 
{
   my $IS_WINDOWS = ($^O eq "MSWin32" or $^O eq "cygwin") ? 1 : 0;
   #
   if ($IS_WINDOWS) {
      eval "use Win32::SerialPort";
      die "$@\n" if ($@);
   } else {
      eval "use Device::SerialPort";
      die "$@\n" if ($@);
   }
}

##</code><code>##

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);
}