#! /usr/bin/perl -wT
use strict;
$|++;

use CGI;
my $query = CGI->new();
# ...and so on...