my $data = $imap->get_rfc822_body($msg);
    
    ### Create a new parser object:
    my $parser = new MIME::Parser;
    
    ### Tell it where to put things:
    $parser->output_under("I:/test");
    
    ### Parse an in-core MIME message:
    my $entity = $parser->parse_data($data);