>perl -e "; use Win32::OLE::Const 'Microsoft ActiveX Data Objects Recordset 2.7 Library';  print adSimpleRecord . qq(\n) . adColl
ectionRecord .qq(\n) . adStructDoc . qq(\n);"

-- Results --
0
1
2