my $count_out = $PortObj->write($sendData);
warn "write incomplete\n" if $count_out != length($sendData);