#!/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) . ":" . substr($a1[$i],6,2) . ":" . substr($a1[$i],8,2) . ":" . substr($a1[$i],10,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("ERROR: %s.\n", $s->error);
  $s->close;
  my @crap = %$result;
  return @crap;
}

##</code><code>##

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