sub dump_parts($msg, $level=0) {
    print " " x $level, $msg->content_type, "\n";
    for my $part ($msg->parts) {
        dump_parts($part, $level+1);
    }
}

dump_parts( $entity );