#!/usr/bin/perl -w 
##########################################################
use strict;
use warnings;
use diagnostics;
use CGI;

my $q=new CGI;

print $q->header,$q->start_html(-title=>"blah");
.
.
.etc.