It's not a Perl solution, but MRTG or the combination of RRDtool and Cricket are great for monitoring how much traffic is going by a particular interface (you could probably query your cablemodem from your XP computer). If you want to get more specific and see what computers are generating what traffic and over what ports, you might take a look at ntop, but it can be difficult to get to work on Windows.