Help for this page
#!usr/bin/perl ... while (1) { my $row = $csv->getline ($fh) or last; }
while (my $fields = $csv->getline( $fh )) { entry = $fields->[2];}