my($DSN) = "Lake Alpine";
if (!($db = new Win32::ODBC($DSN))){
   die "Error connecting: " . Win32::ODBC::Error() . "\n";