$dbh->{csv_files}->{outfile} = {
    file     => "g:/dbf2csv/$filename",
    sep_char => ',',
    eol      => '\r\n'
};
$dbh->do("
    CREATE TABLE outfile AS SELECT * FROM sourceTable
");