[Nmap-scanner-general] Need a little help with example from perldoc

[Clayton D. \(cdukes\) <cd...@ci...>]

  Trying to create a multi host scanner but I'm getting errors, can
anyone help out here?=20

  #!/usr/bin/perl=20
  use strict;=20
  =20
   $| =3D 1;=20
   use Nmap::Scanner;=20
  =20
   open (FILE, $ARGV[0]);=20
   my $count =3D 1;=20
   my(@host_array) =3D <FILE>; # read file into list=20
   my $total =3D (@host_array);=20
   print "Checking $total hosts\n";=20
   @host_array =3D sort(@host_array); # sort the list=20
   chomp (@host_array);=20
  =20
   if (@ARGV  < 1){=20
       usage();=20
   }=20
   sub usage {=20
       print "Usage: synping.pl <hosts>\n";=20
       print "Example:\n";=20
       print "perl synping.pl hosts.txt\n";=20
       exit(-1);=20
   }=20
  =20
   foreach my $hostname (@host_array) {=20
       my $scanner =3D new Nmap::Scanner;=20
       $scanner->register_scan_started_event(\&scan_started);=20
       $scanner->register_port_found_event(\&port_found);=20
       $scanner->scan("-sS -p 22,23 -O $hostname"); # Scan for telnet or
ssh=20
  =20
   }=20
   sub scan_started {=20
       my $self     =3D shift;=20
       my $host     =3D shift;=20
  =20
       my $hostname =3D $host->name();=20
       my $addresses =3D join(',', map {$_->address()}
$host->addresses());=20
       my $status =3D $host->status();=20
  =20
       print "$hostname ($addresses) is $status\n";=20
   }=20
  =20
   sub port_found {=20
       my $self     =3D shift;=20
       my $host     =3D shift;=20
       my $port     =3D shift;=20
  =20
       my $name =3D $host->name();=20
       my $addresses =3D join(',', map {$_->addr()} $host->addresses()); =

  =20
       print "On host $name ($addresses), found ",=20
       $port->state()," port ",=20
       join('/',$port->protocol(),$port->portid()),"\n";=20
  =20
   }=20


This returns:=20
Checking 2520 hosts=20
2693<nmap-error>=20
  <pid=3D"2142"/>=20
  <cmdline=3D"'/usr/bin/nmap' -v -v -v -sS -p 22,23 -O
2811-x-f-h.vac.co.y.net -oX -"/>=20
  <perl-msg>Can't locate object method "name" via package
"Nmap::Scanner::Host" at ./synping.pl line 55.=20
</perl-msg>=20
  <nmap-msg></nmap-msg>=20
</nmap-error>=20



---clueless :-) =20

       |           |        Clayton Dukes
     |||         |||       Network Consulting Engineer
   .|||||.     .|||||.     Advanced Services
.:|||||||||:.:|||||||||:.  Office: 919.392.6122
 C i s c o S y s t e m s   MSN: cd...@ci...=20

=20