#!/usr/bin/perl -t
use strict;
include subroutines.pl;  # I always put my subs for webapps in one place...and not in the main script.

my $header = getheader();
my $footer = getfooter();
my $content = getcontent();  # This is where you'd run a bunch of checks to see what you actually need

print $header;
print $content;
print $footer;

#eof