`Socket::Packet' - interface to Linux's `PF_PACKET' socket family
use Socket qw( SOCK_RAW );
use Socket::Packet qw(
socket( my $sock, PF_PACKET, SOCK_RAW, 0 )
or die "Cannot socket() - $!\n";
bind( $sock, pack_sockaddr_ll( ETH_P_ALL, 0, 0, 0, "" ) )
This software is copyright (c) 2012 by Paul Evans <email@example.com>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
Terms of the Perl programming language system itself
a) the GNU General Public License as published by the Free
Software Foundation; either version 1, or (at your option) any