#!/usr/local/bin/perl -w
###########################################
# nmap-server - Nmap scanning daemon
# Mike Schilli, 2014 (m@perlmeister.com)
###########################################
use strict;
use NmapServer;
use App::Daemon qw( daemonize );

daemonize();

my $nmap = NmapServer->new(
  scan_range => 
    [ "192.168.14.1/24", 
      "192.168.1.1/24" ] );

$nmap->start();

my $cv = AnyEvent->condvar();
$cv->recv();