#!/usr/bin/perl

use strict;
use warnings;
use Devel::SimpleTrace;
use SNMP;

$SNMP::verbose   = 1;
$SNMP::debugging = 1;

$ENV{'MIBS'} = 'ALL';
&SNMP::initMib();

my $session = new SNMP::Session(DestHost => $ARGV[0], Community =>$ARGV[1]);
my $numInts = $session->get('1.3.6.1.2.1.2.1.0');
print "Number of Interfaces: $numInts\n";


##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use SNMP;

my $hostname  = 'localhost';
my $port      = 161,
my $community = 'public';

$SNMP::verbose     = 1;
$SNMP::debugging   = 1;
$SNMP::dump_packet = 1;

my $session = new SNMP::Session(
              'DestHost'     => $hostname, 
              'Community'    => $community,
              'RemotePort'   => $port,
              'UseSprintValue' => 1 );    
die "session creation error: Can't fire-up!\n" 
unless (defined $session); 

my $vars = new SNMP::VarList(['ipNetToMediaNetAddress'], 
           ['ipNetToMediaPhysAddress']); 

my  ($ip,$mac) = $session->getnext($vars); 
die $session->{ErrorStr} if ($session->{ErrorStr}); 

while (!$session->{ErrorStr} and $$vars[0]->tag eq 
"ipNetToMediaNetAddress") { 
    print "$ip -> $mac\n"; 
};
($ip,$mac) = $session->getnext($vars);


##</code><code>##


#!/usr/bin/perl

use strict;
use warnings;
use SNMP::Info;

$SNMP::verbose   = 1;
$SNMP::debugging = 1;

my $netsnmp = new SNMP::Info(
              AutoSpecify => 1,
              Debug       => 1,
              DestHost    => 'myrouter',
              Community   => 'public',
              Version     => 3
              )
    or die "Can't connect to DestHost.\n";
    
my $class = $netsnmp->class();
print "SNMP::Info determined this device to fall
       under subclass: $class\n";