use warnings;
use strict;
my $option = 1;

while ($option != 0){
    print "Please select:\n\n";
    print "1 Deutsch\n";
    print "2 English\n";
    print "0 Exit\n";
    print "\nYou've selected: ";
    $option = <STDIN>;
    print "\n";
    if ($option == 0){
        print "You've choosen!\n";
    };
    if ($option == 1){
#Hier müsste der Fehler sein!!!
        qx(/de/index_de.pl);
    };
    if ($option == 2){
        qx(/en/index_en.pl);
    };
};