Thanks every one.

I found a simple solution that meets my requirement. What I did was added "START" inside the system command


for 1..5{
system("START DoThis.exe");
}
[download]

No need for START. This will do the trick on Windows:

for (1..5) {
  system(1, "DoThis.exe");
}
[download]

See perlport.

Proc::Background

Thanks for the quick response. FYI Script runs in Windows.

#!/usr/bin/perl

use strict;
use warnings;
use Parallel::Runner;

my $runner = Parallel::Runner->new(5);
$runner->run( sub { system("corelist CGI") });
$runner->run( sub { system("corelist CGI::Carp") });
$runner->run( sub { system("corelist Net::FTP") });
$runner->run( sub { system("corelist Net::SMTP") });
$runner->run( sub { system("corelist DBI") });
$runner->finish;
[download]

you can run system on threads like this:

use threads;

my @thr = ();
for my $i (1..5) {
    push @thr, threads->create('run_command');
}
for my $t (@thr) { $t->join }

sub run_command {
    system("DoThis.exe");
}
[download]

Working with 5.10 on Windows.

-- Roman

You've already been given all the fancy ways, but I don't see where anyone has shown you the old-fashioned, primitive way.

foreach ( 1 .. 5 ) {
   my $pid = fork() // die "fork() failed: $!";
   if ( $pid ) {
      say "parent just spawned child $pid";
   } else {
      exec "DoThis.exe";
   }
}
[download]

Of course you'll need to set up a signal handler to catch the SIGCHLD events if you want to know when they're all done.

- doug