#! perl -slw
use strict;

## Count the lines in all the .pl file in the CWD
my $count = 0;
for my $file ( glob '*.pl' ) {

    ## The 1, causes the command to be run in the background
    system 1, "wc -l $file"; 
    $count++;
}

print "$count processes started";