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