#!/usr/bin/perl
use strict;

use Net::SNMP;

my ( $key );

my $session = Net::SNMP->session(Hostname  => '1.2.3.4',
                                 Community => 'public');

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 "$macref->{$key} \n";
}