package My::SNMPDevice;
  use base 'Class::SNMP';

  __PACKAGE__->MakeMethods(
      mib => 'My-Custom-Device-MIB',
      mib_root => 'mycustomdevice',
  );

  package main;

  use My::SNMPDevice;

  my $device = My::SNMPDevice->new(
      hostname => '192.168.1.25'
  );
  print "Has a " . $device->Uptime . " uptime\n";
  print "Port 4 is at speed " . $device->Ports->Entry(4)->Speed . " Mbps\n";