my $sock  = $_[0];
${*$sock}{'io_socket_peername'} = recv($sock, $_[1]='', $len, $flags);