my @nics = do {
    open my $pci, '-|', '/sbin/lspci' or die $!;
    grep { /Ethernet controller/ } <$pci>;
};
# 00:08.0 Ethernet controller: 3Com Corporation 3c905B 100BaseTX [Cyclone] (rev 30)