#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use DBI;
use DBD::ODBC;
use Data::Dumper;
use JSON;
use HTML::Template;
use List::Util qw(sum);

$CGI::LIST_CONTEXT_WARN = 0; 
my $q = CGI->new;

....