Take a look at Net::Pcap and Net::Packet as these may make your life a lot easier.

I made a start on this but the semantics of separating TCP/IP streams between multiple clients and multiple servers in real time got very complicated.

I can probably did out some ugly code if you want :)

The 'Cat