#!/usr/bin/perl -w # kernels 2.4.x /proc/net/arp use strict; my $ipad; my $macad; my @arp; if ( -r "/proc/net/arp" ) { open(ARP,"; close(ARP); } else { die("Cannot access arp in proc $!"); } foreach my $linein ( @arp ) { chomp($linein); next if $linein =~ /IP/i; $ipad = (split(/\s+/,$linein))[0]; $macad = (split(/\s+/,$linein))[3]; print "IP address $ipad has MAC Address $macad\n"; }