#!/usr/bin/perl
use Pod::Html;
use Pod::Text ();
foreach (@ARGV) {
  $in = $_;
  s,^(lib|spamd|spamc)/|\.(pod|pm)$,,g;
  tr,/,_,;
  # convert to HTML: doc/foo.html
  pod2html ("--infile=$in", "--outfile=doc/$_.html");
  # and to text: doc/foo.txt
  my $parser = Pod::Text->new ();
  $parser->parse_from_file ($in, "doc/$_.txt");
}