$dbh = DBI->connect("DBI:mysql:gmacfadd_webdb:localhost","gmacfadd_webdev2","webdevpass2",
					{PrintError => 0, RaiseError => 1});

##</code><code>##

	#! /usr/bin/perl -wT
	package WebDB;

	use strict;
	use DBI;

	my $host_name = "localhost";
	my $db_name = "gmacfadd_webdb";
	my $dsn = "DBI:mysql:database=$db_name;host=$host_name";
	# Connect to MySQL server using hardwired name and password
	sub connect
	{
		return (DBI->connect ($dsn, "gmacfadd_webdev2", "webdevpass2",
			{PrintError => 0, RaiseError =>1}));
	}

	sub connect_with_option_file
	{
	        $dsn .= ";mysql_read_default_file=$ENV{HOME}/.my.cnf";
		return (DBI->connect ($dsn, undef, undef,
			{PrintError => 0, RaiseError =>1}));
	}
	1;	#return true

##</code><code>##

	[client]
	user="gmacfadd_webdev2"
	password="webdevpass2"

##</code><code>##

	#! /usr/bin/perl -wT
	# intro7b.cgi - use WebDB to connect
	use strict;			# FORCE ALL VARIABLES TO BE DECLARED BEFORE USE
	use DBI;			# IMPORT THE DATABASE INTERFACE METHODS
	use CGI qw(:standard);
	use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
	use lib qw(/home/gmacfadd/public_html/cgi-bin/dubois);
	use WebDB;

	my ($dbh, $sth, $count, $user);	# DECLARE VARIABLES

	$dbh = WebDB::connect_with_option_file();