while (read ($sock, $buf, 4) != 0) {last;};
my $length = unpack("N", $buf);
read ($sock, $input_str, $length);