You might enjoy qpsmtpd - which is a complete SMTP-server written in Perl. It is 100% plugin-based, using perl, so you can decide whether to accept mails and do many many things with it.

(I used to run an anti-spam company using it, for example.)