#!/usr/bin/perl -w
use strict;
use DBI;

my $dbhost = 'MUCSQL64';
my $dbuser = 'User';
my $dbpass = 'Password';
my $dbname = 'LotTracking';
my $dbh;    #Database Handler


$dbh = DBI->connect("dbi:ODBC:DSN=$dbname;host=$dbhost",
                           $dbuser, $dbpass,
                           {'RaiseError' => 1});