#!/usr/bin/perl
 while(<>){
	if(/(\d+\.\d+\.\d+.\d+)/){
		push(@ips,$1);
	}
 }
my(@ip);
foreach $i (@ips){
	$no = 1;
	foreach $k (@ip){
		if ($i eq $k){
			$no = 0;
			last;
		}
	}
	if ($no){
		push(@ip,$i);
#		print $i;
	}
}
print "<table>";
foreach $h (@ip){
	if($h=~/^68\.142\.25[012]\./){next;}
	if($h=~/^68\.142\.24[89]\./){next;}
	if($h=~/^80\.60\.35\./){next;}
	if($h=~/^217\.212\.224\./){next;}
	if($h=~/^66\.249\./){next;}
	
	print "<tr><td>". $h ."</td><td> -> </td><td>";
	$full = `host $h`;
	($hn) = $full =~ /pointer\s(.+)\./;
	print $hn."</td></tr>\n";
}
print "</table>";