my ($session, $error) = Net::SNMP->session(
	   -hostname  => shift || $SNMP_host,
	   -community => shift || $SNMP_community,
	   -port      => shift || $SNMP_port,
	);
my $result = $session->get_request(
	   -varbindlist => [".1.3.6.1.2.1.2.2.1.10.1"]
	);
my $temp=$result->{".1.3.6.1.2.1.2.2.1.10.1"} ;