#!/usr/bin/perl -w

opendir(DIR, ".");
@files = grep(/\.dbf$/,readdir(DIR));
closedir(DIR);

foreach $file (@files) 	{

                         dbf_dump --fs "," "$file" > $_.csv;

                        }