#!/usr/bin/perl --

use strict;
use warnings;

use Parallel::ForkManager;


my $pm = new Parallel::ForkManager(3);
for my $data ( 0 .. 2 ){
    my $pid = $pm->start and next; ## WITH NEXT
#    my $pid = $pm->start ;        ## WITHOUT NEXT
    print "data ($data) pid ($pid) \$\$($$)\n";
    $pm->finish; # Terminates the child process
}
__END__