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

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

use Carp qw( confess );
use DBI;

sub connect_mysql {

  my $hostname = "mysql.page.com";   
  my $username = "myusername";   
  my $password = "mypassword";   
  my $database = "mydatabase";

 my $dbh = \DBI->connect("dbi:mysql:database=$database;host=$hostname",$username,$password) 

#bles $dbh;                                                         || confess "Connect to $db 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 my_table";
my $st = $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}";
}

$dbh ->disconnect();