( perl )

   
      $handle=IO::Socket::INET->(proto=>"tcp",
   
                                          PeerAddr=>$host,
   
                                           PeerPort=>$port)
      $handle->autoflush(1);
      die 'can't fork:$!' unless defined($pid=fork());
      if($pid) {
      while(defined($line=<$handle>)){
      print STDOUT $line;
              }

         kill("TERM"=>$pid);
      }

      $SIG{INT}=\&killchild;
        sub killchild{
      .............
      }