Select Code to Download

  sub readSocket {
    my $me = shift;
...
    my $readNum = read($me->{S}, $inData, 4);
    .
  }

  sub socketSend {
    my $me = shift;
...
    .
    print $me->{S} $outData;
  }

    Scalar found where operator expected at PTComm.pm line 205, near "
+} $outData"
            (Missing operator before  $outData?)
    syntax error at PTComm.pm line 205, near "} $outData"

    my $h = $me->{S};
    print $h $outData;