sub leesinfo() {
    for (split /&/, ($ENV{REQUEST_METHOD} eq 'GET' ? $ENV{QUERY_STRING} : <>)) {
        split /=/;
        for (@_) {
            tr{+} { };
            s{%([0-9A-Fa-f]{2})}
             {pack('c',hex($1))}ge;
        }
        $fields{$_[0]} = $_[1];
    }
    $gelezen = 1;
}