IBM's Developerworks website has an article on building a wireless sniffer using Perl. It does focus more on the wireless security aspect rather than the perl code, but it is interesting anyway.