#!/usr/local/bin/perl -w
###########################################
# nmap-client
# Mike Schilli, 2014 (m@perlmeister.com)
###########################################
use strict;
use JSON qw( from_json );
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $resp = 
  $ua->get( "http://localhost:9090" );

if( $resp->is_error() ) {
  die "failed: ", $resp->message();
}

my $data = 
  from_json( $resp->decoded_content() );

for my $host ( @{ $data->{ host } } ) {
  print "$host->{ address }->{ addr }\n";
}