use strict;
use warnings;

use DBI;
use DBIx::Class;

my $host = '192.192.192.192';
my $database = 'datenbank';
my $user = 'user';
my $auth = 'pwd';
my $driver = 'TDS';

my $dbh = DBI->connect("dbi:ODBC:Driver=$driver;Server=$host;Database=$database;UID=$user;PWD=$auth")
or die "Fehler beim Verbinden: ", $DBI::errstr;