if ($ENV{'REQUEST_METHOD'} eq 'GET')
{

my %FORMDATA; #### ALSO ZB HIER???

    $querystring = $ENV{'QUERY_STRING'};
}
     @arrnameval = split(/&/, $querystring); 

foreach $namval (@arrnameval) 
{
   
    ($nam, $val) = split(/=/, $namval
    $val =~ tr/+/ /;
    $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORMDATA{$nam} = $val;
}