Select Code to Download

use Mail::IMAPClient;
my $imap = Mail::IMAPClient->new(
...
  my $msg_st = $imap->message_string($msg);
  # slice and dice messages with modules listed below
}