while(<$new_sock>) {
  $quit = 1 unless length;
  print $_;
}