Select Code to Download

AnyEvent::Socket::tcp_server(undef, undef,
    sub {
...
        $port_is_assigned->send();
    },
);

No.     Time        Source                Destination           Protoc
+ol Info
      1 0.000000    127.0.0.1             127.0.0.1             TCP   
+   44315 > 53196 [SYN] Seq=0 Win=32792 Len=0 MSS=16396 TSV=1875375 TS
+ER=0 WS=6
...
Internet Protocol, Src: 127.0.0.1 (127.0.0.1), Dst: 127.0.0.1 (127.0.0
+.1)
Transmission Control Protocol, Src Port: 53196 (53196), Dst Port: 4431
+5 (44315), Seq: 1, Ack: 187, Len: 0