} else {
      my $buf = <$sock>;
      if ($buf) {
        print "$buf\n";