Thankyou so much! That was one slippery bug.

For anyone who finds this thread and wants to know how to suppress the warnings, here is one solution:

#!/usr/bin/perl
#/home/tbooth/perl/testanydata.perl - created Mon Jun 27 13:57:06 2005

use strict;
use warnings;
use Data::Dumper;

use Carp;
$Carp::Verbose = 1;
$SIG{__DIE__} = \&croak;

# I was having issues with DBD::AnyData.  Here is a test.
use DBI;
require DBD::AnyData;
if(DBD::AnyData->VERSION eq '0.08')
{ eval
  '
    package DBD::AnyData::st;
    no warnings;

    sub DESTROY ($) { $_[0]->SUPER::DESTROY(@_) }
    sub finish ($) { $_[0]->SUPER::finish(@_) }
  ';
}

my $addbh = DBI->connect('dbi:AnyData(RaiseError=>1):');


$addbh->func('myimport', 'CSV', [<DATA>], 'ad_import');

print Dumper($addbh->selectall_hashref("SELECT * FROM myimport", 'foo'
+));
print "\n";

__DATA__
foo,bar,baz
1,2,3
4,5,6
[download]

--
#Tip: use 'no strict' to make those nasty errors vanish.