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