sub test_socket {
    my $s = IO::Socket::INET->new( @_, Timeout=>2, Proto => 'tcp' );
    if( $s ) {
        close $s;
        $q->font( {-color=>PAINT_OK},  'ok' );
    }
    else {
        $q->font( {-color=>PAINT_NOK}, $! )
    }
}

my %tcp_probe = (
    'foo<br>Apache'   => test_socket( PeerHost => '172.17.0.2',     PeerPort => 80,   ),
    'foo<br>Lotus'    => test_socket( PeerHost => '172.17.0.2',     PeerPort => 1352, ),
    'bar<br>Apache'   => test_socket( PeerHost => '172.17.0.3',     PeerPort => 80,   ),
    'bar<br>Lotus'    => test_socket( PeerHost => '172.17.0.3',     PeerPort => 1352, ),
    'example<br>Apache' => test_socket( PeerHost => 'www.example.com', PeerPort => 80,   ),
    'example<br>Domino' => test_socket( PeerHost => 'www.example.com', PeerPort => 8000, ),
    'example<br>Lotus'  => test_socket( PeerHost => 'www.example.com', PeerPort => 1352, ),
    'Web<br>Proxy'       => test_socket( PeerHost => '172.17.0.9',     PeerPort => 8080, ),
    'baz<br>Sybase' => test_socket( PeerHost => '172.17.0.1',     PeerPort => 4100, ),
    'baz<br>Samba'  => test_socket( PeerHost => '172.17.0.1',     PeerPort => 139,  ),
);

print $q->h3('Mission Critical'), $q->table(
    $q->TR(
        $q->th( {-width=>60, -valign=>'bottom', -bgcolor=>'#fff0e0'},
            [ sort keys %tcp_probe ]
        )
    )
    . $q->TR(
        $q->td( {-width=>60, -align=>'center'},
            [ map { $tcp_probe{$_} } sort keys %tcp_probe ]
        )
    )
);