Tieing $q to $r

[Arthur M. Kang]

Trying to tie $q to $r so I can just pass around a single variable to
subs.  Not working too well...  Getting frustrated...  Getting ready to
punch computer...  :)

using Registry:

my($r) = Apache->request;
my($q) = new CGI::Apache;
$r->notes('q',$q);

&test($r);

sub test {
  my($r) = shift;
  my($q) = $r->notes('q');

  print $q->param('test');
}

I'm trying to pass my $q in a fashion like the above example, but can't
get it to work.  If anyone has any insights or can provide some help,
I'd really appreciate it.  I've tried sending it as a reference, and all
(ie: $r->notes('q',\$q))...Can't get it.

Arthur