If you want something simple and light, here is some code that should take care of you

#!/usr/bin/perl


use IO::Select;
use IO::Pipe;

my $select = IO::Select->new();

my @commands = ("echo 1",
                "echo 2",
                "echo 3",
                "echo 4",
                "echo 5",
                );

foreach ( @commands ){

  my $pipe = IO::Pipe->new();

  my $pid = fork;
  die "Bad Fork $!" unless defined $pid;

  ### parent
  if( $pid ){
    $pipe->reader();
    $select->add( $pipe );

  ### child
  }else{
    $pipe->writer();
    $pipe->autoflush(1);

    print $pipe "PID $$: COMMAND $_\n";
    print $pipe `$_`; # do the command
    exit;
  }

}

my $num = 0;
while( my @responses = $select->can_read(0) ){
  die "Timedout [$!]\n" unless @responses;

  my $pipe = $responses[ rand @responses ];
  print STDOUT while <$pipe>;
  print "------------------------------------------------\n";

  $select->remove( $pipe->fileno() );

  last if ++$num >= @commands;
}
[download]

Using pipes to do all of the dirty work of IPC is great. Whoever made IO::Pipe and IO::Select (Graham Barr i think) made life wonderful. change @commands to whatever you want and you are done.

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.