Select Code to Download

$gotit = $PortObj->streamline;        # poll until data ready
$gotit = $PortObj->streamline($count);# block until $count chars recei
+ved
    # fast alternatives to lookfor with no character processing

at the top of your code, put: $|=1: # turns off buffering for print()
sub Receive3
...
                               # put it in a buffer and decide if it i
+s enough for
                               # a complete command or whatever...
}