#!/usr/bin/perl
use lib qw(Net/Intermapper/lib);
my $intermapper = Net::Intermapper->new(hostname=>"10.0.0.1", username=>"admin", password=>"nmsadmin");
print Dumper $intermapper->vertices;