#!/usr/bin/perl -w

    use strict;
    use Pod::Html;

    # Set the Pod::Html options such as --outfile
    my @html_options = ('--title=My Test');


    # Some getopt code here for program options.
    # ...

    pod2html __FILE__, @html_options;


    __END__

    =head1 TEST

    Some pod here.

    =cut