Connection: keep-alive

##</code><code>##

  while ( $chunk = <$socket> ) {
      print $chunk;
  }

##</code><code>##

  Connection: close