Select Code to Download

$dbh = DBI->connect ("DBI:mysql:host=localhost;database=my_db",
 "my_id", "my_pass",
 {PrintError => 0, RaiseError => 1});

# Begin the Editing of the Guestbook File
open (FILE,"$guestbookreal") || die "Can't Open $guestbookreal: $!\n";
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;

# Open Link File to Output
open (GUEST,">$guestbookreal") || die "Can't Open $guestbookreal: $!\n
+";

for ($i=0;$i<=$SIZE;$i++) {
   $_=$LINES[$i];
...
}

close (GUEST);

my $content;
open FILE, '<', $guestbookreal; # Open a filehandle FILE to $guestbook
+real 
...
$sth->execute();

$dbh->disconnect;

# Begin the Editing of the Guestbook File

$dbh->disconnect;

# Check that the things which must have a value have values:
if(defined $FORM{Description} and defined $FORM{Title})
...
{
    print "You must enter a Description and a Title";
}