At the London Perl Workshop I got more than a handful of requests that went like this:
Everyone keeps telling me how great this project is but how the heck do I delete a message from a mailbox?!
So when I got home I got started on Email-Delete. All the hard bits are done and I'm waiting on very minor patches to supporting cast members before this hits the CPAN. A small preview of the syntax.
my ($folder, $mid) = @ARGV;
The folder can be anything that Email::FolderType recognizes. I allow you to call your own code reference to determine mail to delete. If the code returns a true value the mail will be deleted. Current implementations are for Mbox and Maildir. IMAP will come a little later.
Posted from caseywest.com, comment here.