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