sub handle { my $c = shift; my $r = $c->get_request; my %_GET=(); my %_POST=(); if ($r) { %_GET = &parseQueryString($r->url()); if (defined($r->content_length)) { %_POST = &parsePostFields($r); } $c->send_status_line(); #... code ... } }