diff --git a/bindings/perl/Makefile.PL b/bindings/perl/Makefile.PL
index c768e976..b117fd1a 100644
--- a/bindings/perl/Makefile.PL
+++ b/bindings/perl/Makefile.PL
@@ -41,7 +41,7 @@ SigarWrapper::generate(Perl => '.');
 my $ccname = $Config{ccname};
 
 my $define = {
-    gcc => '-Wall -Werror',
+    gcc => '-Wall',
     cc_r => '-qhalt=w',
 }->{$ccname} || '';
 
diff --git a/bindings/perl/Sigar.xs b/bindings/perl/Sigar.xs
index cc891683..b5b974f7 100644
--- a/bindings/perl/Sigar.xs
+++ b/bindings/perl/Sigar.xs
@@ -52,6 +52,7 @@ typedef sigar_disk_usage_t * Sigar__DiskUsage;
 typedef sigar_proc_stat_t * Sigar__ProcStat;
 typedef sigar_net_route_t * Sigar__NetRoute;
 typedef sigar_net_interface_stat_t * Sigar__NetInterfaceStat;
+typedef sigar_arp_t * Sigar__Arp;
 typedef sigar_who_t * Sigar__Who;
 typedef sigar_thread_cpu_t * Sigar__ThreadCpu;
 typedef sigar_resource_limit_t * Sigar__ResourceLimit;
@@ -509,3 +510,28 @@ net_connection_list(sigar, flags)
 
     OUTPUT:
     RETVAL
+
+SV *
+arp_list(sigar)
+    Sigar sigar
+
+    PREINIT:
+    sigar_arp_list_t arp_list;
+    int status;
+
+    CODE:
+    status = sigar_arp_list_get(sigar, &arp_list);
+
+    if (status != SIGAR_OK) {
+        SIGAR_CROAK(sigar, "arp_list");
+    }
+
+    RETVAL = convert_2svav((char *)&arp_list.data[0],
+                           arp_list.number,
+                           sizeof(*arp_list.data),
+                           "Sigar::Arp");
+
+    sigar_arp_list_destroy(sigar, &arp_list);
+
+    OUTPUT:
+    RETVAL
diff --git a/bindings/perl/typemap b/bindings/perl/typemap
index 9f695178..cb91dca7 100644
--- a/bindings/perl/typemap
+++ b/bindings/perl/typemap
@@ -29,6 +29,7 @@ Sigar::DiskUsage T_PTROBJ
 Sigar::ProcStat T_PTROBJ
 Sigar::NetRoute T_PTROBJ
 Sigar::NetInterfaceStat T_PTROBJ
+Sigar::Arp T_PTROBJ
 Sigar::Who T_PTROBJ
 Sigar::ThreadCpu T_PTROBJ
 Sigar::ResourceLimit T_PTROBJ