<form action="./google.cgi" method="get"
enctype="application/x-www-form-urlencoded">
Search The Monastery pages via
<a href="http://www.google.com">Google</a>™
<input type="text" name="search_google"
onmouseover="this.focus()" style="width:15em;" />
<input type="submit" value="Go" />
</form>
cgi (as google.cgi above)
use CGI;
use URI::Escape;
use Socket qw(:crlf);
my $q = CGI::param('search_google') . ' site:perlmonks.thepen.com';
$q = uri_escape( $q );
print "Location: http://www.google.com/search?q=$q", CRLF, CRLF;
|