Select Code to Download

filename(which is always the same);$list[0];$val1[0];$val2[0];
filename;$list[n];$val1[n];$val2[n];

my $csv = Text::CSV->new({sep_char => ';'});        
open (CSV, ">", "base.csv") or die $!;
...
          $csv->error_input, "\n";
      }