$/ = "\r";
$buf = <$new_sock>;