5 $| = 1; print "enter SNMP host address: "; $| = 0;
6 chomp($host = <STDIN>);
9 $obj = new SNMP::Session DestHost, $host;
12 print $obj->get(["ifNumber",0]);
13 open(COM,"ps -u$$|") || die;
15 $siz = (split(' ',$bar[1]))[4];
16 $rss = (split(' ',$bar[1]))[5];
18 print "siz = $siz, rss = $rss\n";