{$title}

#!/usr/local/bin/perl use strict; use Getopt::Long; use Pod::Tree::HTML; my %Options; $Options{toc} = 1; my $ok = GetOptions(\%Options, "base:s", "css:s", "toc!", "hr:i", "bgcolor:s", "text:s", "variables:s"); $ok or die "Bad command line options\n"; umask 0022; @ARGV < 2 and die "pod2html PODfile HTMLfile [templateFile]\n"; my($source, $dest, $template, @variables) = @ARGV; my $html = new Pod::Tree::HTML $source, $dest; $html->set_options(%Options); do $Options{variables} if $Options{variables}; for (@variables) { chomp; my($name, $value) = split /=/, $_, 2; $name =~ s(^\$)(); ${$Pod::Tree::HTML::{$name}} = $value; } $html->translate($template); __END__ =head1 NAME pod2html - translate a POD to HTML =head1 SYNOPSIS C [C<--base> I] [C<--css> I] [C<-->[C]C] [C<--hr> I] [C<--bgcolor> I<#rrggbb>] [C<--text> I<#rrggbb>] [C<--variables> I] F F [F