while ( my $client = $server->accept() ) {

  open( IN, "/usr/bin/someprogram |" );

  while ( <IN> ) {
    if ( $client->connected ) {
      print $client <IN>;
    }
  }
}