$db=new Win32::ODBC($DSN);	
and run a query:
$db->Sql("SELECT * FROM Table");
$db->FetchRow();
%hash = $db->DataHash;
$db->Close();