#!/usr/bin/perl use CGI; use strict; use warnings; my $q=CGI->new(); print $q->header; print $q->start_html; print < EOF [other cgi statements] print $q->end_html;