Select Code to Download

#!/usr/bin/perl

...
my $results = $scan->scan();

print Dumper($results);

~# ./test.pl 
$VAR1 = bless( {
...
                                                                      
+                'ports' => {
..snip...                                            'Nmap::Scanner::P
+ort' ),
...

# perl -v

This is perl 5, version 12, subversion 4 (v5.12.4) built for x86_64-li
+nux-gnu-thread-multi
(with 45 registered patches, see perl -V for more detail)

# nmap -V

Nmap version 5.21 ( http://nmap.org )