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

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

my $DSN = 'driver={SQL Server};Server=$dbhost;database=$dbname;uid=$dbuser;pwd=$dbpass;'; 
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die $DBI::errstr\n";