Select Code to Download

my $columns = 6; # or 10 or 14
local $/ = ',';
...
    }
}
print @fields;

use Text::CSV;

...
    my $status = $csv->combine( @line_fields );
    print $csv->string();
}