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 = getc(STDIN);
    $option = 0 if($option=~/\D/);
    print "\n|$option|\n";
    if ($option == 0){
        print "You've choosen!\n";
    }
    elsif ($option == 1){
        qx(/de/index_de.pl);
    }
    elsif ($option == 2){
        qx(/en/index_en.pl);
    }
}