Dynamic Pages with mod_perl

Basic Mysql Connection/queriesmy $conn = DBI->connect("dbi:mysql:database=;host=;user=;password=")
die ("Couldn't connect to database. ".$DBI::errstr);
my $sql = qq{

};

my $stmt = $conn->prepare($sql);
$stmt->execute();

my $dataRef = $stmt->fetchall_hashref();
if (($dataRef->{''}->{''}) =~ /enum(\(.*\))/)
{
. . .
}
$conn->disconnect();