use strict;

##</code><code>##

$db = new Win32::ODBC("DSN=clamon.world;UID=scott;PWD=tiger");

##</code><code>##

use strict;
use Win32::OLE;
my $db = CreateObject OLE "ADODB.Connection";
$db or die "Whoa partner!";
$db->Open("DSN=clamon.world;UID=scott;PWD=tiger");
my $rs = $db->Execute("SELECT * FROM EMP where EMPNO = 7900");
print ($_)->{Description}."<br>\n" foreach(keys %{$db->Errors()}) unless($rs);

while(!$rs->EOF){
  #see the ADO documention for getting out the data you want 
  $rs->MoveNext();
}