Help for this page

Select Code to Download


  1. or download this
    <form action="./google.cgi" method="get"
 enctype="application/x-www-form-urlencoded">
...
 onmouseover="this.focus()" style="width:15em;" />
<input type="submit" value="Go" />
</form>
  2. or download this
    use CGI;
use URI::Escape;
...
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;