#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';

use English qw(-no_match_vars);
use Data::Dumper;
use Pod::Html;

# Make the documentation.
pod2html(
   "--backlink=Top",
   "--infile=innotop",
   "--outfile=innotop.html",
   "--libpods=perlfunc:perlguts:perlvar:perlrun:perlop",
   "--css=http://search.cpan.org/s/style.css",
);

open my $file, "<", "innotop.html" or die $OS_ERROR;
my $contents = do { local $INPUT_RECORD_SEPARATOR = undef; <$file> };
close $file;

# I hate stupid backticks all over the place.
$contents =~ s/``(.*?)''/&ldquo;$1&rdquo;/gs;

open $file, ">", "innotop.html" or die $OS_ERROR;
print $file $contents;
close $file;