use Nmap::Scanner;
use Data::Dumper;
    my $scanner = new Nmap::Scanner;
    $scanner->tcp_connect_scan();
    $scanner->add_scan_port('1-1024');
    $scanner->max_rtt_timeout(3);
    $scanner->add_target('127.0.0.1');
    my $results = $scanner->scan();


    print Dumper($results->{'ALLHOSTS'});