Select Code to Download

use strict;
use warnings;
...
    open( my $csvfh, ">", "out.csv" ) or die $!;
   $csv->print( $csvfh, \@row );
}