#!/usr/bin/perl -w
use strict;
foreach my $infile ( glob "*.pod" ) {
  (my $outfile = $infile) =~ s/pod$/html/;
  `pod2html $infile > $outfile`;
}