I'm trying to do a basic select but I'm running into an error message:
No Database Selected
Here's the code I used (password, domain and user have been changed for privacy purposes)

#!/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 secti
+on=home")
    or print "Can't prepare statement: $DBI::errstr<br>";

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

$dbh->disconnect();
[download]

The code doesn't flag any syntax errors, so I'm a little confused. Is it me or something I should email the sysadmin about?