Just some side-commands.

kejohm didn't say so, but he also dropped the double quotes around single scalar variables. They here only function as forced stringification of the two variables for user/password, wich disables undef (which is valid). I did include hist quotation fixes below. The optional arguments after the driver prefix (dbi:ODBC:) are seperated by semi-colons, not colons. User and password are not optional.

The DSN for ODBC is kinda special, please use 'perldoc DBD::ODBC::FAQ' to read all about it.

sub open_dbi
{
    # Declare and initialize variables
    my $host        = "192.168.1.3";
    my $db          = "d60380940";   # NEEDS QUOTES
    my $db_user     = "root";        # NEEDS QUOTES
    my $db_password = "root";        # NEEDS QUOTES

    # Connect to the requested server

    # MySQL example
    my $dbh = DBI->connect ("dbi:mysql:$db:$host", $db_user, $db_passw
+ord, {
        RaiseError         => 1,         # When expecting problems, EN
+ABLE!
        PrintError         => 1,         # When expecting problems, EN
+ABLE!
        ShowErrorStatement => 1,         # When expecting problems, EN
+ABLE!
        FetchHashKeyName   => "NAME_lc", # Always be predictable in ke
+y names
        }) or err_trap ("Cannot connect to the database");

    # ODBC example        semi-colon, not colon ---.    ,------- Needs
+ Host= prefix
    my $dbh = DBI->connect ("dbi:ODBC:DSN=d60380940;Host=192.168.1.3",
+ undef, undef, {
        RaiseError         => 1,         # When expecting problems, EN
+ABLE!
        PrintError         => 1,         # When expecting problems, EN
+ABLE!
        ShowErrorStatement => 1,         # When expecting problems, EN
+ABLE!
        FetchHashKeyName   => "NAME_lc", # Always be predictable in ke
+y names
        }) or err_trap ("Cannot connect to the database");
    return $dbh;
    }
[download]

First off, you want to be running under strict and warnings. This will catch any errors that you may have in your strict, so put this at the top of your code:

use strict;
use warnings;
[download]

(You could also usediagnostics for more verbose messages.)

This means that for your sample, you will need to quote the database name, user name and password, so Perl won't complain when it finds an unknown bareword.

In order to specify a particular host to connect to, use the 'host' parameter in the data source, eg:

sub open_dbi {
    # Declare and initialize variables
    my $host = '192.168.1.3';
    my $db = 'd60380940';
    my $db_user = 'root';
    my $db_password = 'root';

    # Connect to the requested server
#    my $dbh = DBI->connect("dbi:mysql:database=$db;host=$host", $db_u
+ser, $db_password, {RaiseError => 0, PrintError => 0} ) or err_trap("
+Cannot connect to the database");
    my $dbh = DBI->connect("dbi:ODBC:database=$db;host=$host", $db_use
+r, $db_password, {RaiseError => 0, PrintError => 0} ) or err_trap("Ca
+nnot connect to the database");
    return $dbh;
}
[download]

sdyates, welcome back to Perl after six years.

As already pointed out by kejohm, the first thing to do is add strictures and warnings: this will highlight the 3 barewords you have in the code fragment shown and similar problems in the rest of your code.

The next step is to check the documentation for the DBD (database driver) for the database you're using:

• DBD::mysql - provides the format for the DBI->connect() call.
• DBD::ODBC - provides a template for DBI->connect() and links to DBD::ODBC::FAQ which has details (including notes on the DSN).

You'll find similar modules and documentation for other databases in the DBD:: space (should you need them).

I don't know anything about ODBC, so this may be way off. But shouldn't there be a user and password in your call to DBI->connect? You only provide them to the call that is commented out

Edit: My bad. The first call was commented :P
The error you're getting now (Datasource not found) is because ODBC requires you to register database-connections with the system.
The connectionstring for ODBC is this:

$dbh = DBI->connect("dbi:ODBC:$DSN", $username, $password, $hr_options
+) or die $DBI::errstr;
[download]

Thanks for the several error you all pointed out. Many of those were made trying to figure out what was networking. The real cause was that the DBD::mysql was not installing properly. Thanks all!