#!/usr/bin/perl
# This will produce to STDOUT fake ARP table records for cisco 2924 (& all 
# compatible).
#
# License is current GNU one.
# (c) Light Olli <olli@digger.org.ru>
#
$port1mac="0003.e3ac.ba81";
$net="212.16.26.";
@range=( 4, 6..14 , 17..24 , 32..216, 252, 254 );
foreach $number (@range)
{$addr=$net.$number;
 print "arp $addr $port1mac ARPA\n";
}
print "\n";