char *
arp_lookup(dev, ip, mac)
        unsigned char *dev;   
        unsigned char *ip;
        unsigned char *mac;
        CODE:
          char tmp[20];
          printf("TMP(%d) IS %s\n", strlen(tmp), tmp);
          if(SOCK_TYPE == SOCK_RAW)
          {
            arp_lookup_bsd(dev,ip,tmp);
          }
          else
          {
            arp_lookup_linux(dev,ip,tmp);
          }

          mac = tmp;

        OUTPUT:  
        mac

##</code><code>##

#!/usr/bin/perl

use Net::ARP;

my $mac = "";
Net::ARP::arp_lookup(eth1 => '172.18.0.1', $mac);
print "mac=$mac\n";
Net::ARP::arp_lookup(eth1 => '172.18.0.1', $mac);
print "mac=$mac\n";

##</code><code>##

TMP(0) IS 
mac=
TMP(8) IS pï¿ï¿½ï¿½
mac=00:0E:D7:80:37:20