johnnywang has asked for the wisdom of the Perl Monks concerning the following question:

Hi, kids are growing up, and spending too much time on the likes of AIM. I'm wondering whether it's easy to whip up a script to block some of these services. I can buy a real personal firewall which probably does more, but would be nice to do it myself. All I want is to be able to install on a desktop (win32), and probably do some deep-packet regex. How does one get on the packet path on windows, and be able to drop or re-write the TCP responses? Thanks.