use CGI qw/:unique_headers/;

# or

use CGI;
$CGI::HEADERS_ONCE = 1;
my $query = CGI->new();