#!/usr/bin/perl -w
use strict;
use lib(".");
use DBI;
use DB_File;
use Win32::ODBC;

my ($db,%Data,$SqlStatement,$err );

my($DSN) = "Lake Alpine";
if (!($db = new Win32::ODBC($DSN))){
    print "Error connecting to $DSN\n";
    print "Error: " . Win32::ODBC::Error() . "\n";
    exit;
}
 
($SqlStatement) = "SELECT * FROM Mailing List";
if ( $db->Sql($SqlStatement)){
	
   $err = $db->Error; 
   warn "Sql() ERROR\n"; 
   warn "\t\$SqlStatement: $SqlStatement\n"; 
   warn "\t\$err: $err\n";
   $db->Close();
   exit;
}

while( $db->FetchRow() ) {
    undef %Data;
    %Data = $db->DataHash();
    print "Read a record.\n";
}

$db->Close();