if ("$k" eq "$input"){
                                # Die SSID des Netzes in eine Datei schreiben
                                open (DAT,">","$datei") or die "Konnte die Datei \"$datei\" nicht öffnen!\n";
                                print DAT $input;
                                close(DAT);
                                print "Verbindung zu WLAN-Netz \"$input\" wird aufgebaut...\n";
                                #my @system=`/usr/bin/sudo /sbin/ifup eth2`;
                                #print join("--", @system)."\n";
                                my @args=("/usr/bin/sudo /sbin/ifup eth2");
                                system(@args) == 0
                                        or die "system @args failed: $?";
                        }