#!/usr/bin/perl -wT use strict; use CGI; my $q = new CGI; $pet = $q->param{ "animal" }; # Instead of # print "Content-type: text/html\n\n"; # use... print $q->header( "text/html" ); print < STUFF