#!/usr/bin/env perl

use warnings;
use strict;
use IPC::System::Simple qw/system/; # recommended but optional

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