Reverse DNS en perl

Bueno aquí un reverse dns que acabo de codear.

Modo de uso:

perl name.pl www.pagina.com

Guardas las webs en un archivo de texto.

Code:

#Autor: Yoyahack
#Webs: www.yoyahack.blogspot.com  -  www.undersecurity.net
#Reverse dns

#Modulos

use LWP::UserAgent;
use HTTP::Request;

#Body

print q(
Reverse Dns by yoyahack
www.yoyahack.blogspot.com - www.undersecurity.net
);

print "Usage: perl script.pl <web>\n";
print "Ex: perl reversedns.pl www.pagina.com\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");

my $busqueda = new HTTP::Request GET =>"http://www.ip-adress.com/reverse_ip/$ARGV[0]";
my $resultado = $ua->request($busqueda);
$ua->timeout(7) || die "Conecction faield";
my $result = $resultado->content();

while ($result =~ m!<a href="/whois/(.+)">Whois</a>!ig){


   open (DNS,">>reverse_dns.txt");
   print DNS "$1\n";
   close (DNS);
   print "$1\n";
  
}

12:24