my $r = shift || Apache->request();