#!usr/bin/perl
use Net::ARP;
use strict;
use warnings;
for (;;){
    Net::ARP::send_packet(
                        'eth0',                       # Device
                        '192.168.12.1',               # Source IP (my 
+gateway)
                        '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);
}