Select Code to Download

#!usr/bin/perl

...
while (1) {
    my $row = $csv->getline ($fh) or last;
}

while (my $fields = $csv->getline( $fh )) {  entry = $fields->[2];}