#!/usr/bin/perl -w use strict; use Getopt::Long qw/ GetOptions /; # Default variables my %config = ( 'author' => 'me', # Does 'char_set' have to be the same as # 'encoding' in 'page_specs'? 'char_set' => 'iso-8859-1', 'pagetitle' => 'put-your-title-here', # ... ); # Allow user to override any of the %config # defaults by invoking the script with switches # in the form of --variable='new value' GetOptions( \%config, map { "$_=s" } keys %config, ); # Spit out the page print < ... XHTML