use strict;
use warnings;
use DBI;

my $dbh = DBI->connect ('dbi:AnyData(RaiseError=>1):');
$dbh->func (
    'Docs', 'Fixed',
    [<DATA>],
    {
        col_names => 'name,batch,file,size,date,status,owner',
        pattern   => 'A16 A14 A26 A15 A25 A15 A9'
    },
    'ad_import'
);

my $sql = 'SELECT name, batch, file FROM Docs order by name, batch';
my $sth = $dbh->prepare ($sql);

$sth->execute ();

while (my $row = $sth->fetchrow_hashref ()) {
    print "$row->{name} has '$row->{file}' and BatchID is $row->{batch}\n";
}

__DATA__