#!/usr/bin/perl -w
use Net::SNMP;
# requires a hostname and a community string as its arguments
($session,$error) = Net::SNMP->session(Hostname => $ARG[0], Community => $ARGV[1]);
die "session error: $error" unless ($session);
#1.3.6.1.4.1.9.9.23.1.2.1.1 is the OID that the CDP info starts at
$result = $session->get_table("1.3.6.1.4.1.9.9.23.1.2.1.1");
die "request error: ".$session->error unless (defined $result);
print "$result \n";
$session->close;