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