my $arguments = $r->args;
my %currargs = map { split("=",$_) } split(/&/, $arguments);