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