I guess I should add that $r is an Apache request object created with

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

Paris Sinclair    |    4a75737420416e6f74686572
pariss@efn.org    |    205065726c204861636b6572
I wear my Geek Code on my finger.