"\x30" is "0". This would seem to indicate you've made an incorrect assumption as to what read returns. Checking the docs confirms this.

($count_in, $string_in) = $PortObj->read($InBytes);
warn "read unsuccessful\n" unless ($count_in == $InBytes);
[download]