#!/usr/bin/perl -wT use strict; use CGI; my $q = new CGI; print $q->header; print <

EODUMP #if(defined($q->param('foo'))){ print $q->param('foo'); #} print "";