#!/usr/bin/perl

use warnings;

use Nmap::Scanner;
use Data::Dumper;

my $scan = Nmap::Scanner->new();
$scan->add_target('localhost');
$scan->add_scan_port('16310-16316');
$scan->tcp_syn_scan();
my $results = $scan->scan();

print Dumper($results);