use strict;
use warnings;
use DBI;
my $dbuser = "user";
my $dbpassword = "password";

# SOTAMAS90
my $CONNECT = 'Driver={MAS 90 4.0 ODBC Driver};Directory=S:\v440\MAS90';
my $dbh = DBI->connect("dbi:ODBC:$CONNECT", "$dbuser", "$dbpassword")
  or die "Cannot connect to $CONNECT: $DBI::errstr\n";
$dbh->disconnect

##</code><code>##

C:\>test_1.pl
DBI connect('Driver={MAS 90 4.0 ODBC Driver}','user',...) failed: [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified (SQL-IM002) at C:\test_1.pl line 11.
Cannot connect to Driver={MAS 90 4.0 ODBC Driver}: [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified (SQL-IM002)