All of FastMail is in Perl5 (minus the Cyrus parts, which are in C).