my $dsn = 'SOTAMAS90';
my $dbh = DBI->connect("dbi:ODBC:$dsn", $dbuser, $dbpass) or die "derp: $DBI::errstr\n";