while (1) {
	defined $sock->recv($data, 1024)
		or die "recv error: $!";
	...