#!/usr/bin/perl

use CGI qw(:standard); 

print header;

use CGI::Carp qw(fatalsToBrowser);
$query = new CGI;
etc....