#!/usr/bin/perl

use CGI ':standard';
use strict;
use DBI();

my $dbuser = "foo";
my $dbpass = 'bar';
my $host = "baz";

package DB;

$DB::dsn = "DBI:mysql:database=$dbuser;host=$host";
$DB::dbh = DBI->connect($DB::dsn, $dbuser, $dbpass);

print header;

$DB::dbh->disconnect;