I do this exact thing, however, I retrieve the variables in my sub thusly:

test($q,$dbh);

sub test {
   my ($q,$dbh)=@_;

   #stuff in here
   }
[download]

I believe this has something to do with () causing $dbh to be evaluated as a scalar (I know I'm probably murdering the terminology here.)