my $CONNECT = 'Driver={MAS 90 4.0 ODBC Driver};Directory=S:\v440\MAS90';
my $dbh = DBI->connect("dbi:ODBC:$CONNECT", "$dbuser", "$dbpassword")