use SNMP;
 
 $sess = new SNMP::Session(DestHost => cisco_router, Community => public);
 $vb = new SNMP::Varbind([.1.3.6.1.2.1.2.2.1.2]);
 do {
    $val = $sess->getnext($vb);
    print "@{$vb}\n";
 } until ($sess->{ErrorNum});