#!/usr/bin/perl -w use CGI; use CGI::Carp qw(fatalsToBrowser); my $cgi = new CGI; print $cgi->header(); print < START print < FOOTER