use DBI;
use strict;
my $dbh = DBI->connect('dbi:AnyData(RaiseError=>0):');
$dbh->func( 't_pricedata', 'Pipe', 'pricedata', { col_names => 'item,price' },    'ad_catalog' );
my $query = q(SELECT item,price FROM t_pricedata);
my $sth   = $dbh->prepare($query);
$sth->execute();
while ( my $row = $sth->fetchrow_hashref ) {
    print $row->{price}, "\n";
}
$sth->finish;
$dbh->disconnect;