sub ConnectToDB 
{
            my $host_name = "01.002.003.04";# Ip Address Here
            my $db_name = "DataBaseName"; # Database Name to connect to
            my $dsn = "DBI:mysql:host=$host_name;database=$db_name";
            return (DBI->connect ($dsn, "usernameHere", "PasswordHere", {PrintError => 0, RaiseError => 1}));
}