use strict;
use DBI;
use DBD::ODBC;
use CGI_Lite;

my $DSN = 'BLAH';
my $dbh;
open LOG, ">>log.log";
print LOG "\nTesting..\n";

$dbh=DBI->connect("dbi:ODBC:$DSN",'USER','PASSWORD',{ 
		RaiseError => 1, 
		AutoCommit => 1,
		PrintError => 0 } );
if(!$dbh){
	print LOG "Error: $DBI::errstr";
	exit;
}

print LOG "Good";
exit;