Select Code to Download

use strict;

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

use strict;
use Win32::OLE;
...
  #see the ADO documention for getting out the data you want 
  $rs->MoveNext();
}