#!/usr/bin/perl -T use strict; use warnings; use CGI qw/:standard/; my $q = new CGI; print $q->header; print $q->start_html('Animal'); print <<'END'; Animal
Which animal?

END print "Show me the ", 'animal', " \n"; print $q->end_html;