#!usr/bin/perl -w

use strict;

use DBI;
use CGI qw(:standard);

my $dbh = DBI->connect("dbi:mysqlPP:database=menagerie:host=localhost", uid, pwd,
{'RaiseError' => 1});

print header(),
start_html("Good Return - Constituent Report"),
h1("Good Return - Constituent Report");

print p("Does this work?");
print p("Databases");
print p("=========");

print end_html;