VinsWorldcom@C:\Users\VinsWorldcom\tmp> more test.pl
use Net::Pcap qw(:functions);

@devs = pcap_findalldevs(\%devinfo, \$err);
for my $dev (@devs) {
    print "$dev : $devinfo{$dev}\n"
}

VinsWorldcom@C:\Users\VinsWorldcom\tmp> perl test.pl
\Device\NPF_{7C974F8C-6E64-44D9-B5F5-BE1242FA897D} : Intel(R) PRO/1000 MT Network Connection

VinsWorldcom@C:\Users\VinsWorldcom\tmp>