my @info = split(/:/, $IP);

    # initiate snmp session
    ($session, $error) = Net::SNMP->session(
	-hostname      => $info[0],
	-port          => $info[1],
	-nonblocking   => $boolean,
	-version       => $version,
	-domain        => $domain,
	-timeout       => $seconds,
	-retries       => $count,
	-maxmsgsize    => $octets,
	-translate     => $translate,
	-community     => $community,
	);

    if (!defined ($session)) {
	printf "Problem: %s.\n", $error;
	exit 1;
    }
    print Dumper(\$session);