#!/usr/bin/perl

use strict;
use DBI;
use CGI qw(:standard);
use CGI::Carp "fatalsToBrowser";

my $dbh = DBI->connect("dbi:mysql:database=dbname;host=localhost",
             "uname", 
             "pword") 
        or die "Unable to connect to DB:  $DBI::errstr";
$dbh->disconnect();

print header,
      start_html(-title=>'Title',
                 -BGCOLOR=>'blue',
                 -text=>'white'),
      p('test'),
      end_html;