#!/usr/bin/perl -w

use strict;
use diagnostics;
use Data::Dumper;
use Net::SNMP;
use Carp;
my $debug = 0;

my $ports = "1.3.6.1.2.1.17.7.1.4.2.1.5.0.1"; 
my ($session, $error) = Net::SNMP->session( version=> 2,	
			-hostname => "switch",
			-community=> "public"); 
	
if (!$session) {
croak("Net::SNMP Session not created\n");
}

my $result = $session->get_request(-varbindlist => $ports]); 
																		

if (!$result) {
my $err = $session->error();	
print "ERROR: $err \n";	
croak("no results from get_bulk_result");
}
	
$session->close();

my $portstr = $result->{$ports};
print "The port string is: $portstr\n";