Select Code to Download

sub dump_parts($msg, $level=0) {
    print " " x $level, $msg->content_type, "\n";
...
}

dump_parts( $entity );