Arpon Arpwatch Tester

#!/usr/bin/perl
#MadSt3in
#arpwatch arpon sendmail Tester
#free software
#licençe GPL
use Net::ARP ;
use Term::ANSIColor;

print color ("red"), "[+]",color ("reset"), "Interface to Use Ex: eth1 | wlan0 | eth0 \n" ;
$iface = <STDIN>;
print color ("red"), "[+]",color ("reset"), "Insert IP to check ROUTER or Machine with Arpon Activated \n" ;
$target = <STDIN> ;
chop ( $target,$iface ) ;

$getmac = Net::ARP::arp_lookup($dev,$target);
print " $macget \n";
if ($getmac =~ unknow ) {
    print "Something went Wrong The Target Retrieved an unknow Mac addr\n";
    print "Maybe $target Machine as Arpon Acivated \n";
    print "If So Congrats\n";
    goto finish ;
}
else {
my $src = join ".", map int rand 255, 1 .. 4;
my $spoofedmac = join ":", map int rand 99, 1 .. 6, ;
Net::ARP::send_packet($iface,                   # Device
                        $src,              # Source IP
                        $target,                  # Destination IP
                        $spoofedmac,              # Source MAC
                        $getmac,                  # Destinaton MAC
                        'reply');                 # ARP operation

print "Packeth Sent Tru $iface to $target using $src as ip \n";
print "with this spoofed mac $spoofedmac \n";
                    }
finish: