sub QuerySNMP {
	use SNMP;
	#$SNMP::debugging = 2;
	my ($hostname) = shift @_;
	#my (@params) = qw(1.3.6.1.77.1.2.27.1.1 1.3.6.1.4.1.77.1.2.27.1.3);
	$ENV{'MIBFILES'} = "LanMgr-Mib-II-MIB.my";
	my ($session) = new SNMP::Session(
		DestHost => $hostname, 
		Community => "public", 
		UseSprintValue => 1,
	);
	if (!(defined($session))) {
		die "Session creation error:  $SNMP::Session::ErrorStr  - $!\n" ;
	}
	
	my ($vars) = new SNMP::VarList(['svPrintQName'],
								   ['svPrintQNumJobs'],
								   ['svShareComment'],
	);
	my ($q, $num_jobs, $share_comment) =  $session->getnext($vars);

	if ($session->{ErrorStr}) {;	
		die "Getnext failed - error: " . $session->{ErrorStr} . " - $!\n"
	}
	while (!$session->{ErrorStr} ) { 
		print "q - $q, num jobs - $num_jobs, comment - $share_comment, tag - " . $$vars[0]->tag . "\n";
		($q, $num_jobs) =  $session->getnext($vars);
	}
	
}