in reply to perldoc code only
Try the following:
perldoc -m MyModule | perl -n -e " next if (/^=/ .. /^=cut/); print" [download]