#!/usr/bin/perl

use Net::ARP;
use Net::Netmask;
use Net::Frame::Simple;
use Net::Frame::Dump::Online;


my $dev= "eth1";
$interface= shift;
 $ifconf= `ifconfig $dev`;
$ifconf=~ /\d+\.\d+\.\d+\.\d+/;
 $ipdec= $&;
 $ifconf=~ /Mask:\d+\.\d+\.\d+\.\d+/;
 $nmaskdec= $&;
 $nmaskdec=~s/Mask://;

my $netblock= $ipdec . ":" . $nmaskdec ;
$netmask=new Net::Netmask ($netblock);
my @iprange = $netmask->enumerate;


$arpDump=Net::Frame::Dump::Online->new(
   dev    => $dev,
   filter => 'arp');

$arpDump->start;

my %livehosts;
my $reply;
$counter=0;
while ($counter<3){
	for $ipts (@iprange){
		Net::ARP::send_packet($dev,$ipdec,$ipts,"00:18:de:34:8e:7b","ff:ff:ff:ff:ff:ff","request");
	}
	until ($arpDump->timeout){
		
		if ($next=$arpDump->next){
			my $r=Net::Frame::Simple->newFromDump($next);
			$opc=$r->ref->{ARP}->opCode;
			next unless $opc == 2;
			$livehosts{$r->ref->{ARP}->srcIp}=$r->ref->{ARP}->src;
		}
	}
	$arpDump->timeoutReset;
	$counter++;
}
foreach $key (keys %livehosts){
	print "IP Address $key is up with mac of $livehosts{$key} \n";
}