#!/usr/bin/perl

use warnings;
use strict;
use Parallel::ForkManager;
use Sys::CPU;

my $number_of_cpus = Sys::CPU::cpu_count();
my $pm = new Parallel::ForkManager($number_of_cpus);

for (1..$number_of_cpus) {
    my $pid = $pm->start and next;
    my $string="abcdefg";
    my $ln=length($string);
    print "length of a string = $ln \n";
    $pm->finish();
}

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;
use Parallel::ForkManager;
use Sys::CPU;

my $number_of_cpus = Sys::CPU::cpu_count();
my $pm = new Parallel::ForkManager($number_of_cpus);
my @strings = ("abcde","abcdefghij","ab");

for (1..scalar @strings) {
    my $pid = $pm->start and next;
    my $string=$strings[$_-1];
    my $ln=length($string);
    print "length of string \"$string\" = $ln \n";
    $pm->finish();
}