my $r = Apache2::Request->new(shift);