Have you checked http://search.cpan.org/? A search for "SMTP server" returns modules including: Net::SMTP::Server, Net::Server::Mail::SMTP, NetServer::SMTP

I have not used, nor do I recommed for or against any of these, but they might get you further than you are now.

-- Eric Hammond