Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
printf "%s\t%s\n", @result;
$csv->eof or $csv->error_diag();
close $fh;