#! /usr/bin/perl

use Expect;

my $numchild = 20;
my $timeout = 60;

my @args;


my @remote;

for (my $i = 0; $i<$numchild; $i++) {
  $remote[$i] = Expect->spawn('bash', @args);
  $remote[$i]->expect($timeout, '-re', '.*\$ ');
}

for (my $i = 0; $i<$numchild; $i++) {
 $remote[$i]->send("echo bash [\$\$] says hello world.\r");
 $remote[$i]->expect($timeout, '-re', '.*\$ ');
 $remote[$i]->send("exit\r");
}