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

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