/usr/share/doc/libsnmp-perl/examples/testleak.pl is in libsnmp-perl 5.7.2~dfsg-8.1ubuntu3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | use SNMP 1.6;
$host = shift;
unless ($host) {
$| = 1; print "enter SNMP host address: "; $| = 0;
chomp($host = <STDIN>);
}
$obj = new SNMP::Session DestHost, $host;
while (){
print $obj->get(["ifNumber",0]);
open(COM,"ps -u$$|") || die;
@bar = <COM>;
$siz = (split(' ',$bar[1]))[4];
$rss = (split(' ',$bar[1]))[5];
close(COM);
print "siz = $siz, rss = $rss\n";
}
|