use strict;
use Net::SNMP;
use BER;
use SNMP_Session;
use SNMP_util;
#variable declaration and assigment omitted...
print "Trying 'snmpwalk' on $host\n";
  @ret = &snmpwalk("$community\@$host\:\:\:\:\:$version", $oid );
foreach (@ret) {
 print "$_\n";
 }