A quick note: CHECK blocks were introduced in 5.6. On my 5.005_02 installation, this generates an error. Strictly speaking, you should run it with perl -M5.6 ... Very nicely done, though. Doesn't even look like Perl....