Have you looked at Net::RawIP?

It's a little lower level than IO::Socket::INET; you create your own packets. There are a few requirements, but if you are testng routers/firewalls/etc, nothing beats the control.