Lancement d'une commande via system(1,"$cmd");

foreach my $i (1, 2, 3) {  
    my $pid = fork();  
    if ($pid==0) { # child  
        exec("perl C:\\repertoire\\test_2.pl $i");  
        die "Exec $i failed: $!\n";  
    } elsif (!defined $pid) {  
        warn "Fork $i failed: $!\n";  
    }  
}

As an optimization, may not call the command shell specified in $ENV{PERL5SHELL} . system(1, @args) spawns an external process and immediately returns its process designator, without waiting for it to terminate. Return value may be used subsequently in wait or waitpid. Failure to spawn() a subprocess is indicated by setting $? to "255 << 8". $? is set in a way compatible with Unix (i.e. the exitstatus of the subprocess is obtained by "$?>> 8", as described in the documentation). (Win32)