use strict;
use warnings;

use netMapper;

my $mapper=netMapper->new(qw(host1 host2 host3 ...));

if($mapper->badHosts) {
    warn "Can't contact hosts:" . $mapper->badHosts . "\n";
}

foreach my $host ($mapper->Hosts) {
    print "$host INFO:\n", Dumper($mapper->HostInfo($host)), "\n";
}

foreach my $network ($mapper->Networks) {
    print "$network INFO:\n", Dumper($mapper->NetInfo($network)), "\n";
}