Select Code to Download

sub setuser($){
    my $user = $_[0];
...
    $DB{$user} = $value;
    logline("wapfunc: setuser $user");
}

sub leesinfo() {
    for (split /&/, ($ENV{REQUEST_METHOD} eq 'GET' ? $ENV{QUERY_STRING
+} : <>)) {
...
    }
    $gelezen = 1;
}