[Perl Tk] Fuzz DNS

Hola a todos , aca les dejo un programa en tk para poder buscar las dns de un host , todos los resultados se guardan en un archivo de texto

#!usr/bin/perl
#Brute DNS (C) Doddy Hackman 2011
 
 
@dns = ('www','www1','www2','www3','ftp','ns','mail','3com','aix','apache','back','bind','boreder','bsd','business','chains','cisco','content','corporate','cpv','dns','domino','dominoserver','download','e-mail','e-safe','email','esafe','external','extranet','firebox','firewall','front','fw','fw0','fwe','fw-1','firew','gate','gatekeeper','gateway','gauntlet','group','help','hop','hp','hpjet','hpux','http','https','hub','ibm','ids','info','inside','internal','internet','intranet','ipfw','irix','jet','list','lotus','lotusdomino','lotusnotes','lotusserver','mailfeed','mailgate','mailgateway','mailgroup','mailhost','maillist','mailpop','mailrelay','mimesweeper','ms','msproxy','mx','nameserver','news','newsdesk','newsfeed','newsgroup','newsroom','newsserver','nntp','notes','noteserver','notesserver','nt','outside','pix','pop','pop3','pophost','popmail','popserver','print','printer','private','proxy','proxyserver','public','qpop','raptor','read','redcreek','redhat','route','router','scanner','screen','screening','secure','seek','smail','smap','smtp','smtpgateway','smtpgw','solaris','sonic','spool','squid','sun','sunos','suse','switch','transfer','trend','trendmicro','vlan','vpn','wall','web','webmail','webserver','webswitch','win2000','win2k','upload','file','fileserver','storage','backup','share','core','gw','wingate','main','noc','home','radius','security','access','dmz','domain','sql','mysql','mssql','postgres','db','database','imail','imap','exchange','sendmail','louts','test','logs','stage','staging','dev','devel','ppp','chat','irc','eng','admin','unix','linux','windows','apple','hp-ux','bigip','pc');
 
use Tk; 
use Tk::ROText;
use LWP::UserAgent;
 
if ($^O eq 'MSWin32') {
use Win32::Console; 
Win32::Console::Free();
}
 
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
 
my $new = MainWindow->new();
$new->geometry("337x330+50+50");
$new->title("Brute DNS (C) Doddy Hackman 2011");
$new->resizable(0,0);
 
$new->Label(-text=>"Page : ",-font=>"Impact2")->place(-x=>"10",-y=>"10");
my $target = $new->Entry(-width=>30)->place(-x=>"70",-y=>"14");
$new->Label(-text=>"Output",-font=>"Impact1")->place(-x=>140,-y=>60);
 
my $console = $new->ROText(-width=>43,-height=>15)->place(-x=>15,-y=>100);
 
$new->Button(-text=>"Scan",-command=>\&buscar,-width=><img src="https://underc0de.org/foro/Smileys/default/cool.gif" alt="8&#41;" title="Cool" class="smiley" />->place(-x=>260,-y=>11);
 
MainLoop;
 
sub buscar {
$console->delete("0.1","end");
my $host = $target->get;
 
$console->insert("end","\n<ul class="bbc_list"><li type="disc"> Searching DNS to ".$host.".....\n\n");[/li][/list]
for my $path(@dns) {
$new->update;
$code = toma("http://".$path.".".$host);
if ($code->is_success) {
push(@found,"http://".$path.".".$host);
}
}
$total = int(@found);
if ($total eq "0") { 
$console->insert("end","[-] No found any dns"); 
} else {
$console->insert("end","</li><li type="square"> DNS found : ".int(@found)."\n\n"); [/li][/list]
for(@found) {
$console->insert("end","[Link] : ".$_."\n");
savefile("dns-found.txt",$_);
}
}
$console->insert("end","\n\n</li><li type="square"> Finish\n\n");[/li][/list]
}
 
sub salir { exit 1;}
 
sub toma {
return $nave->get($_[0]);
}
 
sub savefile {
open (SAVE,">>logs/".$_[0]);
print SAVE $_[1]."\n";
close SAVE; 
}
 
# ¿ The End ?