Select Code to Download

    while ( my $line = $csv->getline($fh) ) {
        # Manipulation of unsorted fields during import
        my @multiline = join(';',@{$line});
...
    if (not $csv->eof) {
        $csv->error_diag();
    }

    for my $line (@result) {
        my @fields = split(/;/,$line);
...
        print $fh "$_;" foreach @fields;
        print $fh "\n";
    }