##
%info = (
db => 'my_database_name',
user => 'user_name',
pass => 'password'
);
####
our %info;
do ".htinfo" or die "Problem reading '.htinfo'!\n";
my $dbh = DBI->connect( "DBI:mysql:$info{db}", $info{user}, $info{pass} );