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


##</code><code>##

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