my $db = new Win32::ODBC( "DSN=INFO;UID=id;PWD=password" );
       if( ! $db )
	   {
	   	die "Error connecting: " . Win32::ODBC::Error() . "\n";
		}