Select Code to Download

#!/usr/bin/env perl
use warnings;
...
    system(qq{dbf_dump --fs "," "$file" > $_.csv})==0
        or die "system() failed (\$?=$?)";
}