You could do something hackish like

find /your/perl/lib/path -name '*.pm' | \
xargs perl -ni -e 'print unless /^=\w+/ .. /^=cut/'
[download]

Which works for me, but is *not* a reliable solution. A saner approach would almost certainly involve modules, perhaps subclassing Pod::Simple would do the trick.

update: or use crazyinsomniac's Pod::Stripper. ahem.
HTH

_________
broquaint