Written in Perl by Jeff Aaron