#!/usr/bin/perl print "Content-type: text/html\n\n"; use CGI qw(:standard -debug); print "<html>\n"; print "<body>\n"; print "<h1>Where am I?</h1>\n"; print "Place = ", param('place'), "\n"; print "</body>\n"; print "</html>\n";