http://www.perlmonks.org?node_id=52351


in reply to Passing Params

Try passing $query to your subroutine.