#!/usr/bin/perl

use warnings;
use strict 'refs';
use Nmap::Scanner;
use Data::Dumper::Concise;

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