while(defined($_ = <$sock>)) {
    print $_;
}