use strict;
use warnings;
use DBI;
use XBase;

#my $dbf_directory = '/home/thomas/dbase';
my $dbf_directory = 'H:/db';
my $data_source_name = 'DBI:XBase:' . $dbf_directory;

my $dbh = DBI->connect($data_source_name) or die $DBI::errstr;

my $select_sth = $dbh->prepare('SELECT * FROM SUBBLK.DBF')
or die $dbh->errstr;

$select_sth->execute or die $select_sth->errstr;

while(my @row = $select_sth->fetchrow_array) {
	for (my $i = 0; $i < 25; $i++)	{
		print "$i: $row[$i] \n";
	}
}