Select Code to Download

$ perldoc -m perldoc
#!/usr/bin/perl
...
BEGIN { $^W = 1 if $ENV{'PERLDOCDEBUG'} }
use Pod::Perldoc;
exit( Pod::Perldoc->run() );