#!/usr/bin/perl -w

use strict;
use warnings;
use Mysql;
use CGI qw/:standard/;
my $query = CGI->new;
my %form = $query->Vars;
my $entries = "entries.txt";

my $dbh = Mysql->connect($poemDB, sulfericacid, ----);

$dbh->selectdb($poemDB);

print "Database content\: $dbh";

my $rc = $dbh->shutdown();


if ($form{'poemtitle'} && $form{'poemsub'}) {
open (ENTRIES, ">> $entries") or die "Cannot open $entries";
print ENTRIES "$form{'poemtitle'}\n";
print ENTRIES "$form{'poemsub'}\n";
close (ENTRIES);

print header(),
start_html('Success'),
"Your poem entitled <b>$form{'poemtitle'}</b> has been added\n",
end_html();
}
else {
        print header(),
        start_html('Poetry Submissions'),
       
#########
   
        start_form,
        "Submission Title",textfield('poemtitle'),p,
    "Submission",textarea(-name=>'poemsub',
                  -rows=>10,
                  -columns=>50),
        submit,
        end_form,
        hr,
end_html();
}