sub ConnectToDB 
{
            my $host_name = "002.003.004.05";
            my $db_name = "DBName";
            my $dsn = "dbi:ODBC:Clients:host=$host_name;database=$db_name";
            return (DBI->connect ($dsn, "UserNameHere", "PassWordHere")); #
Clients being the name I set in the Windows Data Sources (ODBC)
}