$PortObj->error_msg(1);
$PortObj->user_msg(1);

##</code><code>##

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