#!/usr/bin/env perl
use warnings;
use strict;
use IPC::System::Simple qw/system/; # recommended but optional

opendir my $dh, "." or die "opendir failed: $!";
my @files = grep {/\.dbf$/} readdir $dh;
closedir $dh;

foreach my $file (@files) {
	system(qq{dbf_dump --fs "," "$file" > $_.csv})==0
		or die "system() failed (\$?=$?)";
}