use Win32::OLE qw(in);
use Win32::OLE::Const;

my $DBConn = Win32::OLE->new('ADODB.Connection');
   $DBConn->Open( "Provider=sqloledb;Data Source=127.0.0.1;Initial Cat
+alog=master;User ID=sa; Password=****;" );

if ( Win32::OLE->LastError() ) {
  print "Error : " . Win32::OLE->LastError() . "\n";
  exit 1;
}

my $RS = $DBConn->Execute(q{
use [Northwind]
DECLARE @id  int, @indid int, @counter dec (15)
CREATE TABLE #Temp ( id int, indid int )
INSERT INTO #Temp
       SELECT  o.id, i.indid
       FROM      sysobjects AS o
       FULL JOIN sysindexes AS i
       ON        o.id      = i.id
       WHERE     o.xtype   = 'U'
SELECT @counter = COUNT(*) FROM #Temp
SET rowcount  1
WHILE ( @counter ) > 0
BEGIN
   SELECT @id = id, @indid = indid  FROM #Temp
   SET    @counter  = @counter -1
   DBCC SHOWCONTIG (@id, @indid)
   DELETE FROM #Temp WHERE id = @id and indid = @indid
END
SET rowcount 0
DROP TABLE #Temp} );

if ( Win32::OLE->LastError() ) {
  print "Error : " . Win32::OLE->LastError() . "\n";
  exit 2;
}

my @ErrosReturn;

while (1){
  # Get all message returned by ADO connection
  foreach my $Error ( in ( $DBConn->Errors() ) ) {
    my $Description = $Error->{Description};
    $Description    =~ s/\s*$//;
    push @ErrosReturn, $Description;
  }
  
  eval { $RS = $RS->NextRecordSet(); };
  last if ( $@ );
}

print join "\n", @ErrosReturn;
[download]