#--------------------------------------------------------------
# my module.
#--------------------------------------------------------------
package ModTest;
require Exporter;

our @ISA     = qw(Exporter);
our @EXPORT  = qw( connect_mysql);
our $VERSION = 1.00;

use Carp qw( confess );

use DBI;

sub connect_mysql {

  my $hostname = "mysql.yourhost.com";   
  my $username = "username";   
  my $password = "password";   
  my $database = "database";
  
 my $dbh = DBI->connect("dbi:mysql:database=$database;host=$hostname",$username,$password) or die "Connect to $database failed: $DBI::errstr";

return $dbh;

}

1;


##</code><code>##

#!/usr/bin/perl -w

use DBI;
use CGI::Carp qw(fatalsToBrowser); 
use ModTest;

print "Content-type:text/html\n\n";

my $sql_dbh = ModTest->connect_mysql();

my $sql = "SELECT * FROM table";
my $st = $sql_dbh->prepare($sql)
    or die "Preparing MySQL query failed: $DBI::errstr";

   $st->execute()
    or die "The execution of the MySQL query failed: $DBI::errstr";

while ($row = $st->fetchrow_hashref())
{
    print " $row->{first} $row->{last}";
}

$sql_dbh ->disconnect();