#!/usr/bin/perl -w

use strict;
use DBI;
use CGI::Carp "fatalsToBrowser";
use CGI ":all";

my $username = 'USERNAME';
my $pass = 'PASSWORD';

my $db = 'DBI:mysql:auroraborealis:localhost';
my $db_object = DBI->connect($db, $username, $pass);


print header();
print "<PRE>";

my $sql = "SELECT * FROM guestbook ORDER BY name";
my $dbh->do($sql);
$dbh->disconnect();

exit;