Greeings fellow monks, I've been picking my brain on a particuliar problem, and was wondering if someone out there might help me find the answer. I'm writing a script that will do an OID walk on a small tree. When I use the commandline snmpwalk, it immediately returns a response from the device, but when I run the perl script, I get the error of "No response from remote host."

#!/usr/bin/perl

use Net::SNMP;

my @a1=snmp_query_ap("10.20.1.2", "my-uber-secret-snmp-pass", ".1.3.6.
+1.4.1.161.19.3.3.4.1.1");
my $size=(scalar @a1);
my $i=1;
while ($i < $size) {
  print uc(substr($a1[$i],2,2) . ":" . substr($a1[$i],4,2) . ":" . sub
+str($a1[$i],6,2) . ":" . substr($a1[$i],8,2) . ":" . substr($a1[$i],1
+0,2) . ":" . substr($a1[$i],12,2)) . "\n";
  $i=$i+2;
}

sub snmp_query_ap() {
  my $ip = shift;
  my $com = shift;
  my $oid = shift;
  my ($s,$error) = Net::SNMP->session(Hostname => "$ip", Community => 
+"$com", Version => 2) || die printf("ERROR: %s.\n", $session->error);
  my $result = $s->get_table( -baseoid => "$oid" ) || die printf("ERRO
+R: %s.\n", $s->error);
  $s->close;
  my @crap = %$result;
  return @crap;
}
[download]

The place where it dies is on line 18,

my $result = $s->get_table( -baseoid => "$oid" ) || die printf("ERROR:
+ %s.\n", $s->error);
[download]

Thanks again!