require "c:/vcanew/cgi-bin/cgi-lib.pl";

print  &PrintHeader;
print  &HtmlTop();

if (!($db = new Win32::ODBC("MyDSN")))
	{
		print Win32::ODBC::Error();
		print &HtmlBot;
	    exit();

	}
	else
	{
		print "Works";
		print &HtmlBot;
	}