use 5.010;
use strict;
use warnings;

use IO::Socket::INET;

my $sock = IO::Socket::INET->new(LocalPort => 7777, Listen => 10);

for (1..3) {
    my $pid = fork;
    unless($pid) {
        my $cli = $sock->accept;
        say "Process $$ accepted connection from " . $cli->peerport;
        print while <$cli>;
        exit 0;
    }
}