my $baseoid = ".1.3.6.1.2.1.2.2"; # ifTable
  my $thisoid = $baseoid;
  while ( 1 ) {
    $val = $sess->getnext($thisoid);
    last if ( $thisoid !~ m/^$baseoid\./ );
    last if ( $sess->{ErrorNum} );

    print( "@{$thisoid}\n" );
  }