sub handler{
     my $r = shift;
     my %params = $r->method eq 'POST' ? $r->content : $r->args();
     #.....
}