#!/usr/bin/perl

use strict;
use Parallel::ForkManager;

my $pm = Parallel::ForkManager->new(10);

foreach my $j (1..100) {
    LINKS:
    for my $i (1..10) {
        $pm->start and next LINKS;
        my $num = count($i);
        print $num,"\t";
        $pm->finish;
    }
    print "\n";
    $pm->wait_all_children;
}

sub count {
    my $num = shift;
    return $num + 1;
}