my $pos = 0;
while ( $pos < 5) {
	my $c = sysread $sock, $pong, 5, $pos or die $!;
    $pos += $c;
}