#!/usr/bin/perl
use CGI;
use strict;
my $site_title = "Jared Burke's Movie Voting Script";
my $site_bgcolor = "#FFFFFF";
my $site_text = "#000000";
my $site_link = "#0000FF";
my $site_alink = "#00FF00";
my $site_vlink = "#FF0000";
my $site_font = "Tahoma";
print_home();
sub print_home() {
print "Content-type: text/html\n\n";
print "$site_title: Home\n";
print "\n";
print "$site_title: Home
\n";
print "Vote for your favorite movie.
";
print "
Please be patient while your vote is verified.\n";
print "
index.cgi source
verify.cgi
record.cgi
results.cgi
imdb.pm\n";
}