#!/usr/bin/perl -w

use strict;
use CGI;
my $cgi = new CGI;
# use CGI::Carp  qw(fatalsToBrowser);

open DAT, ">>D:/website/blabla/blabla/blabla/index.txt";
select DAT;

my @Feldnamen = $cgi->param();

      foreach my $Feld (@Feldnamen) {
    print $cgi->param($Feld);
        print ";";
      };

select STDOUT;

print $cgi->redirect($cgi->url_param('goto'));