my $r = shift;
...
$query = new CGI;