Check out the Linux Genuine Advantage™ website. It's rare that you such a perfect marriage of satire and Linux/Perl coding. What is it? Well:
And it actually is! You can view the source code: a decently-commented Perl script which should make any Linux sysadmin quake in his or her boots. Or you can download the thing, and get Makefile, INSTALL, and README files in addition.
But you'd be foolish to actually install it; read the FAQ instead.