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