package DB;

use strict;
use DBI;

sub connect
{
my $db_name = "xxx";
my $host_name = "xxx";
my $user_name = "xxxxxx";
my $password = "xxxx";
my $dsn = "DBI:mysql:host=$host_name;database=$db_name";

return (DBI->connect ($dsn, $user_name, $password,
{ PrintError => 0, RaiseError => 1}));
}

1;