use  Parallel::ForkManager By using this you can control your process more

 my $pm = Parallel::ForkManager->new(3);
# Use to create 3 child process

$pm->wait_all_children;
#This statment makes the parent wait untill all children completes its
+ tasks
[download]