What are best practices for working with Parallel::ForkManager?

# Example of using Parallel::ForkManager in Perl
use strict;
use warnings;
use Parallel::ForkManager;

# Number of processes to be forked
my $max_processes = 4;

# Create a new Parallel::ForkManager instance
my $pm = Parallel::ForkManager->new($max_processes);

# Array of tasks to be processed
my @tasks = (1..10);

# Loop through each task
foreach my $task (@tasks) {
    # Start a new process
    $pm->start and next;

    # Simulate work with sleep
    print "Processing task $task in PID $$\n";
    sleep(2);  # Simulating some work

    # Finish the process
    $pm->finish;
}

# Wait for all child processes to finish
$pm->wait_all_children;

print "All tasks completed.\n";