#!/usr/local/bin/perl
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use URI::Heuristic;

my $query=shift or die "usage: $0 query string\n";
my $raw_url = "http://www.google.com/search?q=$query&num=100&hl=en&lr=&ie=UTF-8&start=0&sa=N";
my $url= URI::Heuristic::uf_urlstr($raw_url);
$|=1; #forces flushing after each printf
#printf "%s =>\n\t",$url;
my $ua = LWP::UserAgent->new();
$ua->agent("Maverick/v4.7 plat");
my $req = HTTP::Request->new(GET => $url);
$req->referer("http://www.njit.edu");
print $url;
my $response = $ua->request($req);

if($response->is_error())
{
 printf "error:%s\n",$response->status_line;
}else {
    my $count,$bytes;
    my $content = $response->content();
    $bytes = length $content;
    $count = ($content =~tr/\n/\n/);
#    printf "%s ((%d lines, %d bytes)\n", $response->title(), $count, $bytes;
    }

#print $response->content();;

$_=$response->content(); 


#open(INPUT,"index.html")
#  or print "hey there is no file like this";
#undef $/;
#my $input_file = <INPUT>;
#print $input_file;
#$input_file ="are y html is there in this line";
#$_=$input_file; 

@perls =       m/
                 \<p \s class=g \>.*?\<a (.*?) href=
		 (.*?)
		 \>
                /cgmisx; 

              #  m/
	      #	  \<A.*? \s onmousedown=\"return \s clk\(\d+,this\)".*?href="
	      #	  (.*?) #mathches the href=
	      #	  ".*?A\>
	      #	 /cgmisx;
 
 $i=0;
 foreach $key( @perls)
 {
   $i=$i+1;
   if ($i%2 eq 0)
    { print "$key\n";}
     
 }
 printf "Matched %d \n",scalar @perls;
 
#print $response->content();