use DBI; my $dbf_dir = 'C:/Data/MoSes_Automatisierung/ws_test_orig/output/mcev/EEV12Q2/EEV_batchrun_1/'; my $tbl = 'EEV_DET_BATCHRUN_1~MAIN.DBF'; my $dbh = DBI->connect("DBI:XBase:".$dbf_dir) or die $DBI::errstr; # { my $sth = $dbh->prepare("select CAL_YEAR from $tbl") or die $dbh->errstr(); $sth->execute() or die $sth->errstr(); while (my @DATA = $sth->fetchrow_array()) { print join(',', @DATA), "\n"; } $sth->finish(); } $dbh->disconnect();