Select Code to Download

Select or download this

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

Select or download this

[root@station19 ~]# perl nmap.pl 
<nmap-error>
  <pid="8711"/>
...
  <nmap-err>mass_dns: warning: Unable to determine any DNS servers. Re
+verse DNS is disabled. Try using --system-dns or specify valid server
+s with --dns_servers
</nmap-msg>
</nmap-error>

Select or download this

[root@station19 ~]# '/usr/bin/nmap' -v -v -v -sS -p 16310-16316 -oX - 
+localhost
<?xml version="1.0" ?>
...
<runstats><finished time="1325587633" timestr="Tue Jan  3 16:17:13 201
+2"/><hosts up="1" down="0" total="1" />
<!-- Nmap run completed at Tue Jan  3 16:17:13 2012; 1 IP address (1 h
+ost up) scanned in 0.010 seconds -->
</runstats></nmaprun>