use strict;
use warnings;
use File::Spec::Functions qw( catdir catfile );

# Arbeitsverzeichnis, wo die Programme liegen
my $dir = 'E:/Benutzer/06simulation/proc';

# stelle die notwendigen Kommandos in einem Hash zusammen;
# Pfade werden mit catfile zusammengebaut; http://search.cpan.org/perldoc?File::Spec::Functions
my %cmd = (
  init    => catfile( $dir, "01runInitElthetaBatchScript.ahk" ),
  batch   => catfile( $dir, "02runBatchScript.ahk"            ),
  analyze => catfile( $dir, "03procInitElthetaOut.pl"         ),
);

# Fuehre Kommandos einzeln aus; prüfe Erfolg; sterbe bei Misserfolg
system( $cmd{init}    ) == 0 or die "execution of "$cmd{init}" failed: $!\n";
system( $cmd{batch}   ) == 0 or die "execution of "$cmd{batch}" failed: $!\n";
system( $cmd{analyze} ) == 0 or die "execution of "$cmd{analyze}" failed: $!\n";


__END__