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