#! /usr/local/bin/perl

use strict;
use Net::SNMP;

my ($session, $error) = Net::SNMP->session(
        -hostname  => shift || '127.0.0.1',
        -community => shift || 'public',
        -port      => shift || 161
   );

if (!defined($session)) {
        printf("ERROR: %s.\n", $error);
        exit 1;
}

my $response = $session->get_next_request('1.3.6.1.2.1.1');
my @nextid   = keys %$response;
while ( $nextid[0] =~ m/^1\.3\.6\.1\.2\.1\.1/ ) {

        $response = $session->get_next_request( $nextid[0] );
        @nextid   = keys %$response;

        print "durchlaufe OID: $nextid[0] \n";
        #fuer diese OID nun Werte abholen etc.

}

durchlaufe OID: 1.3.6.1.2.1.1.2.0
durchlaufe OID: 1.3.6.1.2.1.1.3.0
durchlaufe OID: 1.3.6.1.2.1.1.4.0
durchlaufe OID: 1.3.6.1.2.1.1.5.0
durchlaufe OID: 1.3.6.1.2.1.1.6.0
durchlaufe OID: 1.3.6.1.2.1.1.8.0
durchlaufe OID: 1.3.6.1.2.1.1.9.1.2.1
durchlaufe OID: 1.3.6.1.2.1.1.9.1.2.2
durchlaufe OID: 1.3.6.1.2.1.1.9.1.2.3
durchlaufe OID: 1.3.6.1.2.1.1.9.1.2.4
durchlaufe OID: 1.3.6.1.2.1.1.9.1.2.5
durchlaufe OID: 1.3.6.1.2.1.1.9.1.2.6
durchlaufe OID: 1.3.6.1.2.1.1.9.1.2.7
durchlaufe OID: 1.3.6.1.2.1.1.9.1.2.8
durchlaufe OID: 1.3.6.1.2.1.1.9.1.3.1
durchlaufe OID: 1.3.6.1.2.1.1.9.1.3.2
durchlaufe OID: 1.3.6.1.2.1.1.9.1.3.3
durchlaufe OID: 1.3.6.1.2.1.1.9.1.3.4
durchlaufe OID: 1.3.6.1.2.1.1.9.1.3.5
durchlaufe OID: 1.3.6.1.2.1.1.9.1.3.6
durchlaufe OID: 1.3.6.1.2.1.1.9.1.3.7
durchlaufe OID: 1.3.6.1.2.1.1.9.1.3.8
durchlaufe OID: 1.3.6.1.2.1.1.9.1.4.1
durchlaufe OID: 1.3.6.1.2.1.1.9.1.4.2
durchlaufe OID: 1.3.6.1.2.1.1.9.1.4.3
durchlaufe OID: 1.3.6.1.2.1.1.9.1.4.4
durchlaufe OID: 1.3.6.1.2.1.1.9.1.4.5
durchlaufe OID: 1.3.6.1.2.1.1.9.1.4.6
durchlaufe OID: 1.3.6.1.2.1.1.9.1.4.7
durchlaufe OID: 1.3.6.1.2.1.1.9.1.4.8