#!/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();
}