# syswrite($new_sock, $buf, 10);
syswrite( $new_sock , "$buf\n\n", 10);