## read
$InBytes = 1;
my ( $count_in, $string_in );
( $count_in, $string_in ) = $PortObj->read( $InBytes );
print "count: $count_in\nin: $string_in\n";
warn "read unsuccessful\n" unless ( $count_in == $InBytes );