Did you download and install ActivePerl from www.activestate.com? This is from their documentation:
Code:
<%
# Create an instance of the ADO Connection object
#
$Conn = $Server->CreateObject("ADODB.Connection");

# Open a system DSN
#
$Conn->Open( "ADOSamples" );

# Execute an SQL Query
#
$RS = $Conn->Execute( "SELECT * FROM Orders" );

# Read a property to get the number of columns
# present in the Recordset returned from the
# query.
#
$count = $RS->Fields->{Count};

# Print out the names of each column
#
for ( $i = 0; $i < $count; $i++ ) {
$Response->Write( $RS->Fields($i)->Name );
$Response->Write("<BR>");
};

# Loop the Recordset until there are no more records
#
while ( ! $RS->{EOF} ) {
for ( $i = 0; $i < $count; $i++ ) {
$Response->Write(" ");
$Response->Write($RS->Fields($i)->{Value});
$Response->Write("<BR>");
};

# Move to the next record
#
$RS->MoveNext();
};

# Close the Recordset
#
$RS->Close();
$Conn->Close();
%>