编辑代码
Perl代码
5.30.3
运行
use
Socket;
listen
(PROTOSOCK, SOMAXCONN) ||
die
"cannot set listen queue on PROTOSOCK: $!"
;