#!/usr/bin/perl

use strict;
use warnings;;
use Forking::Amazing;
use Data::Dump 'dd';
use Time::HiRes qw(time);

my $groupsize = 1000;
my @rawids = 'job0001' .. 'job9999';
my @ids;
push @ids, [ splice @rawids, 0, $groupsize ] while @rawids;

my @answers;
my $start = time;

Forking::Amazing::run
  20,
  sub { [ map +{id => $_, pid => $$, time => time - $start}, @{+shift} ] },
  sub { push @answers, @{+pop} },
  @ids;

my $end = time - $start;
dd \@answers;
print "forking time $end\n";