Select Code to Download

while (my $row = $csv->getline($FILE1)) 
{
...
        $csv->print ($FILE3,"NOT_HK", @fields);  #file1 only
    }
}