#--------------------------------------------------------------
# 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;