#!/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";