my $dbh = DBI->connect("dbi:ODBC:INFO","username","password")
	or die "Unable to connect: " . $DBI::errstr . "\n";