use strict;
use warnings;
use DBI;

my $dbuser = "foo";
my $dbpass = "bar";
my $dbname = "blort";
my $dbhost = "localhost";

my $dsn    = "DBI:ODBC:database=$dbname;host=string";

my $dbh    = DBI->connect($dsn, $dbuser, $dbpass, $dbhost
                          {RaiseError => 1});

# .. Execute your query on $dbh here, SELECT/INSERT/etc. 

$dbh->disconnect;