#!/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
";
$sth = $dbh->prepare("SELECT section, content FROM webdata WHERE section=home")
or print "Can't prepare statement: $DBI::errstr
";
$sth->execute()
or print "Can't execute statement: $DBI::errstr
";
$dbh->disconnect();