#!usr/bin/perl -w

# get GET data
if($ENV{'REQUEST_METHOD'} eq 'GET')
    { $Daten = $ENV{'QUERY_STRING'}; }
else
    { $Daten = null; }

# modify GET data array
$Daten =~ s/%([\da-fA-f]{2})/pack("c",hex($1))/ge;
$Daten =~ tr/+/ /;
for(split/&/,$Daten) {
	($key , $val) = split/=/,$_,2;
	$Form{$key} .= $val;
}