How do you test code that uses Parallel::ForkManager?

use strict;
use warnings;
use Parallel::ForkManager;

# Create a new ForkManager with a maximum of 4 processes
my $pm = Parallel::ForkManager->new(4);

# An array of tasks to process
my @tasks = (1..10);

# Loop through tasks
foreach my $task (@tasks) {
    # Start the ForkManager for each task
    $pm->start and next;

    # Simulate some work being done
    print "Processing task $task in PID $$\n";
    sleep(1); # Simulate time-consuming work

    # Finish the child process
    $pm->finish;
}

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