Select Code to Download

   my $pid = open(PIP, "|-");# open to write
   if ( !$pid ) {   # I'm the child
...
         print PIP "hmm, No. ",++$n,"\n"; # kid ??
         print "hmm, No. $n\n"; sleep 1;#control -> ok!
      }

sub sendToClient {
   my $SOC = ( shift );
...
      }
   }
}