BEGIN {
    if(  $^O =~ /Win32/i  ) {
        eval 'use Win32::SerialPort qw(:ALL); 1;'
            or  die $@;
    } else {
        eval 'use Device::SerialPort qw(:ALL); 1;'
            or die $@;
    }
}