#!/usr/bin/perl
use strict;
use warnings;

my $dev = shift || die("Specify a network interface as a parameter\n");

use Net::Write::Layer2;

my $l2 = Net::Write::Layer2->new(
   dev => $dev,
);

use Net::Packet::Consts qw(:eth);
use Net::Packet::ETH;

my $eth = Net::Packet::ETH->new(type => NP_ETH_TYPE_ARP);
$eth->pack;

print $eth->print."\n";

$l2->open;
$l2->send($eth->raw);
$l2->close;