Help for this page

Select Code to Download


  1. or download this
    my $response = $ua->get("http://www.google.com/search?num=50&hl=en&lr=
+&safe=off&rls=GGLD%2CGGLD%3A2005-12%2CGGLD%3Aen&q=$search");

...
 else {
     print "$response16->status_line";
 }
  2. or download this
    sub parser
{
...
   elsif ($count eq "14")  {$google_results = $response14->content;}
   elsif ($count eq "15")  {$google_results = $response15->content;}
   elsif ($count eq "16")  {$google_results = $response16->content;}