perldoc -m MyModule | perl -n -e " next if (/^=/ .. /^=cut/); print"