Automatisador de busqueda de google en perl v0.2

Bueno este es la segunda version de google search en perl hecha por mi, ps en esta version guarda
los enlaces en un archivo de texto por default llamado 'enlaces.txt' si quieren alguna mejora ps decirlo.

#Autor:   Yoyahack


#Version: 0.2





use LWP::UserAgent;


use HTTP::Request;


 


print "Modo de uso:\n";


print "Perl name.pl <busqueda> <numeros de paginas>\n";


print "perl name.pl inurl:noticias.php?id=1 50\n";


 


my $ua = new LWP::UserAgent;


$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");


 


for($i=1;$i<$ARGV[1];$i++){


    my $busqueda = new HTTP::Request GET =>"http://www.google.com/search?hl=es&q=.$ARGV[0].&start=$i&sa=N";


    my $resultado = $ua->request($busqueda);


    $ua->timeout(7);


    my $result = $resultado->content;


 


    while ($result =~ m/<h3 class=.*?<a href="([^"]+).*?>(.*?)<\/a>/g) {


        my ($enlace) = ($1);


        open (SAVE, ">>enlaces.txt");


        print SAVE "\n$enlace\n";


        print "$enlace\n";


        close(SAVE);


}


}


#Gretz:   S[e]C, seth, OzX, p0fk  

19:38