Has anyone ever written a worm, trojan horse or similar for sysadmin reasons (e.g. to gather data about client machines on a large LAN)? Were you bitten as a result, either politically or technologically? Any war stories out there?
Not written in Perl, but here is a recent example of something similar: