Well, as it turns out, nobody has been able to point me to modules that do what I want, so I'm going to have to implement them myself. I'm starting with POP3 and will probably call the module Net::Server::POP3. If all goes well, I plan to put it up on CPAN, along with a sample script that uses it. If all goes _really_ well, I'd like to do IMAP as well.

update: Well, it's not ready for primetime, but I have something that mostly works. I uploaded version 0.0001 to PAUSE today and applied for the namespace. What I have so far can be found in my author directory on CPAN.

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]