#!/usr/local/bin/perl 
use warnings; 
use strict; 
use Win32::OLE; 
use Win32::OLE::Const 'Microsoft ActiveX Data Objects'; 
 
my $objConn = Win32::OLE->new("ADODB.Connection"); 
my $objCommand = Win32::OLE->new("ADODB.Command"); 
my $objRecordSet = Win32::OLE->new("ADODB.Recordset"); 
$objConn->Open("Driver={Webtrends ODBC Driver};Server=mywebtrendserver;Port=7099;Database=flrdacbkoji;Uid=*****;Pwd=******;AccountId=1;Language=english;ProfileGuid=KlDwrNbKgm6;SSL=0;"); 
$objCommand->{"ActiveConnection"} = $objConn; 
$objCommand->{"CommandText"} = "SELECT * FROM Pages WHERE Titles <> '' AND URLs IS NOT NULL AND Titles NOT LIKE 'PowerHouse TV : 404 Error Page' AND Titles NOT LIKE '302 Found' AND URLs <> 'http://powerhousetv.com/' AND URLs <> 'http://powerhousetv.com/index.htm' AND URLs <> 'http://powerhousetv.com/wcm/idcplg/' ORDER BY Visits DESC"; 
$objRecordSet->{"CursorLocation"} = 3; #adUseClient 
$objRecordSet->{"CursorType"} = 0;     #adOpenForwardOnly 
$objRecordSet->{"LockType"} = 1;       #adLockReadOnly; 
 
$objRecordSet = $objCommand->Execute(); 
 
open OUT, ">output.txt"; 
 
while (!$objRecordSet->EOF) 
{ 
      print OUT $objRecordSet->Fields("Titles")->value, ", "; 
      print OUT $objRecordSet->Fields("URLs")->value, ", "; 
      print OUT $objRecordSet->Fields("Visits")->value, ", "; 
      print OUT $objRecordSet->Fields("Views")->value, "\n"; 
      $objRecordSet->MoveNext(); 
}