my $dbh = DBI->connect('dbi:ODBC:MAS90', $dbuser, $dbpassword)
 or die "Cannot connect: $DBI::errstr\n";