use Socket;
$port = 2222;
socket(S, PF_INET, SOCK_STREAM, 0);
setsockopt(S, SOL_SOCKET, SO_REUSEADDR, 1);
bind(S, sockaddr_in($port, INADDR_ANY));
listen(S, 50);
while(1) {
    accept(X, S);
    unless(fork) {
        
    ...некое действие...

    }
    close X;
}