lib/perl5/site_perl/perl-net-common.pm: find_wireless_device