#!/usr/bin/perl 
#GetHostByEverything by Digital Ebola <digi@legions.org>

use Socket;



for($a=4;$a < 255;$a++) {
	for($b=1;$b < 255;$b++) {
		for($c=1;$c < 255;$c++) {
			for($d=1;$d < 255;$d++) {

		$iaddr = inet_aton("$a.$b.$c.$d"); 
		$name  = gethostbyaddr($iaddr, AF_INET);
		$straddr = inet_ntoa($iaddr);		
		system("/bin/echo $name >> report.txt");
		print("\n$name\n");
		system("/bin/echo $straddr >> report.txt");
		print("$straddr\n");
		system("/bin/echo ------------------------- >> report.txt");
		print("-------------------------\n"); 

			}
		}
	}
}