#!/usr/local/bin/perl

  1. goolarge.cgi
  2. A take-off on “I’m Feeling Lucky,” redirects the browser to the largest
  3. (size in K) document found in the first n results.  n is set by number
  4. of loops x 10 results per.
  5. goolarge.cgi is called as a CGI with form input
  1. Your Google API developer’s key.

my $google_key=’insert key here’;

  1. Location of the GoogleSearch WSDL file.

my $google_wdsl = “./GoogleSearch.wsdl”;

  1. Number of times to loop, retrieving 10 results at a time.

my $loops = 10;

use strict;

use SOAP::Lite;
use CGI qw/:standard/;

  1. Display the query form.

unless (param(‘query’)) {
print
header(  D
starml%2ml(“