Select Code to Download

eol => '\012'
eol => '\015'
eol => '\l'
eol => '\r'

#!/usr/bin/perl -w
use strict;
...
while ( my $row = $csv_in->getline($fh_in) ) {
    $csv_out->print( $fh_out, [ @$row[ 2, 3, 0, 4 ], ] );
}

#!/usr/bin/perl -w
use strict;
...
    my $number = $fields[5];
}
exit;