#!/usr/bin/perl
use CGI qw/:standard/;
sub nl{
	return qq(\n)
}
@ips = ("1.2.3.4","2.4.6.8","3.6.9.12");
@names = ("A1","B2","C3");
@services = ("srv1","srv2","srv3");
@banners = ("ban1.1","ban2.2","ban3.3");
print table(
    Tr([
			td(br.br.b(u("IPS")." - @ips".br.br)).nl,
			td(br.br.b(u("Names")." - @names".br.br)).nl,
			td(br.br.b(u("Services")." - @services".br.br)).nl,
			td(br.br.b(u("Banners")." - @banners".br.br)).nl,
		]).nl,
).nl;