#!/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";