sub HttpContentCallback {
  my($data,$response,$protocol) = @_;
  print $data;
}