use strict;
use Data::Dumper;
use Net::Pcap;

Net::Pcap::findalldevs(\my %devinfo,\my $err);

warn Dumper \%devinfo;