my $ob = Win32::SerialPort->new ('COM10') || die;