#!/usr/bin/perl
use warnings;
use strict;
use DBI;
my $access_dbh= DBI->connect(...);
my $ad_dbh= DBI->connect('dbi:AnyData(RaiseError=1):');
$ad_dbh->ad_catalog('Temp','HTMLtable', $url, { $html_table_extract_flags});
my $select = $ad_dbh->prepare("SELECT * FROM Temp");
my $insert = $access_dbh->prepare("INSERT INTO foo VALUES(...)");
$select->execute;
while( my $row = $select->fetchrow_arrayref ) {
    $insert->execute(@$row);
}