#!/usr/bin/perl
use strict;

use Net::SNMP;

my ( $key );

my $session = Net::SNMP->session(-hostname  => '1.2.3.4',
                                 -community => 'public',
                                 -translate => [-octetstring => 0x0],
                                 );
print $session->error();

my $macoid = '1.3.6.1.2.1.17.4.3.1.1';
my $macref = $session->get_table($macoid);

foreach $key (keys %{$macref}) {
   print unpack('H12', $macref->{$key}) ."\n";
}
[download]