my $query = CGI->new;

becomes:

  local our $query = CGI->new;