my $connection = new Win32::ODBC($DSN);

print qq(Content-type: text/html\n\n);

if (!$connection)
{
	print "Could not open connection to DSN because of [$!]";
}