sub writeFile
        {       
        my($datAuswahl, $out_entry, $listbox) = @_;
        my $outfile = $out_entry->get();
        
        ## Wenn der Dateiname nicht leer ist ###
        if ($outfile ne "")
         {
          ### letzten 4 Zeichen des Dateinamens holen
          my $endung= rindex($outfile,".txt",4);
          
          ### Wenn kein .txt gefunden wurde
          if ($endung eq -1)
                {
                ### Endung anfügen ### 
                $outfile= $outfile . ".txt";
                }
          }     
        open(OUT, '>', $outfile) or (warn $! && return);
        print OUT "$_\n" for $listbox->get(0, 'end');
        close(OUT);     
        }