"Socket::Netlink" - interface to Linux's "PF_NETLINK" socket family
use Socket::Netlink qw( :DEFAULT pack_nlmsghdr unpack_nlmsghdr );
socket( my $sock, PF_NETLINK, SOCK_RAW, 0 ) or die "socket: $!";
send( $sock, pack_nlmsghdr( 18, NLM_F_REQUEST|NLM_F_DUMP, 0, 0,
"\0\0\0\0\0\0\0\0" ), 0 )
or die "send: $!";
recv( $sock, my
This software is copyright (c) 2011 by Paul Evans <firstname.lastname@example.org>.
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