#! /usr/bin/perl
use strict;
use CGI;
my $cgi = new CGI;
my $file = $ENV{DOCUMENT_URI};
$file =~ s|^/||;
$| = 1; # turn off output buffering and print out content header
print "Content-type: text/html\n\n";
# Set our variables from the CGI
my %vars;
$vars{background} = $cgi->param('background') || "#119511";
$vars{root} = $cgi->param('root') || $file =~ m|^(~[^/]+/?)|?"/$1":"/";
$vars{title} = $cgi->param('title') || "CTL";
$vars{separator} = $cgi->param('separator') || ' => ';
####################################
#Create the title bar
#Process the beginning of the header
my $header = "";
#and finally print the thing.
print $header;
Short Literary works
Below are some of my favorite short literary works.