use Socket;

sub analyze
{
	my @rows = @_;
	my $row;
	my %hosts = ();
	my $iaddr;

	print "<pre>";

	foreach $row (@rows)
	{
		next if ($row =~ /^204.182.55.132/);
		next if ($row =~ /^204.182.55.29/);

		if ($row =~ /^65.3.201.234/)
		{
			print "<B>$row</B>";
			next;
		}
		if ($row =~ /^(\d+\.\d+\.\d+\.\d+)(.*)$/)
		{
#			$iaddr = inet_aton($1);
#			if (not $hosts{$iaddr})
#			{
#				$hosts{$iaddr} = gethostbyaddr($iaddr, AF_INET);
#			}
#			$row = $hosts{$iaddr} . $2;
		}
		print "$row";
	}

	print "</pre>";
}

1;