Monarch,
Tried the following and it didn't like the OID, see the output below.
rgds.

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


Cisco Internetwork Operating System Software 
IOS (tm) 3600 Software (C3640-JS-M), Version 12.1(5)T8,  RELEASE SOFTW
+ARE (fc1)
TAC Support: http://www.cisco.com/cgi-bin/ibld/view.pl?i=support
Copyright (c) 1986-2001 by cisco Systems, Inc.
Compiled Tue
[download]