#!/usr/bin/perl
use strict;
use warnings;
use POSIX ":sys_wait_h";

my @cmds=('script1.sh', 'script2.sh', 'script3.sh');

my @pids;
# prozesse starten:
for my $cmd (@cmds)
{
 # Prozess forken
 my $pid=fork();

 # wenn im Kindprozess
 # Kommando ausfuehren ProzessID des Kindprozesses übernehmen:
 # perldoc -f exec
 exec($cmd) unless($pid);

 # im Hauptprozess
 if(defined($pid))
 {
   push(@pids, $pid);
 }
 else
 {
    warn "Fehler beim Kommando: $cmd\n ($!)\n";
 }
}

# prozesse überwachen:
my $running;
do
{
  $running=0;

  # eine Sekunde warten
  sleep(1);

  for my $pos (0..$#pids)
  {
    my $pid =$pids[$pos];

    # nicht mehr laufende Prozesse ueberspringen:
    next if($pid==-1);

    # das System fragen ob der Prozess noch läuft:
    $runn=waitpid($pid,&WNOHANG);

    # auswerten
    if($runn == -1)
    {
      # beendet
      $pids[$pos]=-1;
      print "Kommando: ".$cmds[$pos]."( $pid ) beendet ( EXITCODE: $?).\n";
    }
    else
    {
      # laeft noch
      $running++;
    }
  }
  print "$running Prozesse laufen noch\n";
}
while($running > 0);

print "Alle aufgaben erledigt\n";
exit(0);