#######Definition von GUI etc.#########
.
.
my $001 = $Link./"001.pl"; # Vollständiger Pfad zu 001 Skript
my $002 = $Link."/002.pl";
.
.
my $LinkQD001 = "Z:/muster/pfad/QD.txt"; # Link zur 001-Quelldatei 
my $LinkOP001 = "Z:/pfad/sonstnochwie/OP.txt"; #Link+Name der erzeugten Datei

if ($check001)   #entsprechender Checkbutton angekreuzt
{
system ("$001");

}