#!/usr/bin/perl

use DBI;

use CGI qw/:standard/;
import_names('f');
print header();

my $database = "databasename=default";
my $host = "host=mysql.domain.com";
my $driver = "DBI:mysql";
my $user = "user";
my $pass = "pass";

my $dbh = DBI->connect("DBI:mysql:$database;$host", $user, $pass)
	or print "Can't connect to mysql database: $DBI::errstr<br>";

$sth = $dbh->prepare("SELECT section, content FROM webdata WHERE section=home")
	or print "Can't prepare statement: $DBI::errstr<br>";

$sth->execute()
	or print "Can't execute statement: $DBI::errstr<br>";

$dbh->disconnect();