#!/usr/bin/perl -wT print "Content-type: text/html\n\n"; use strict; use CGI; use CGI::Carp qw( fatalsToBrowser ); my $name; my $favorite_food; my $q = new CGI; $name = $q->param("name"); $favorite_food = $q->param("favorite_food"); print <

Thank you $name. I also like $favorite_food.

EOF