I don't think you're going to find a perl module that will do this. However, this page has some links to tools that should be able to capture the data ala wireshark/windump. I have not looked at any of these tools, but you should hopefully find one that can pipe the raw data to your perl app