@Host=grep {/Host:/} @lines;
		@AHost=split (/	/,$Host[0]);
		$filepath=$htmlpath . $line . ".html";

		@Domain=grep {/DNS domain name:/} @lines;
		@ADomain=split (/    /,$Domain[0]);


		print "<td width=150 align=right><a href=$filepath>$AHost[1].$ADomain</a></td>\n";

		@IP=grep {/IPAdress:/} @lines;
		print "<td width=150 align=right>";
		foreach $run (@IP)
		{
			@AIP=split (/	/,$run);
			print $AIP[1] . "<br>";
		}
		print "</td>\n";