#!/usr/bin/perl -Tw
use strict;

use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $query = new CGI;

# the rest of your code goes here.