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

##</code><code>##

  sub socketSend {
    my $me = shift;
    .
    .
    .
    my $outData; 
    .
    .
    # <Do stuff that builds $outData>
    .
    .
    print $me->{S} $outData;
  }

##</code><code>##

    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"

##</code><code>##

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