#!/usr/bin/perl

use Pod::Html;
use Pod::Text ();

foreach (@ARGV) {
  $in = $_;
  s,^(lib|spamd)/|\.(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");
}
