Select Code to Download

my $file = "path/to/client.csv"; # make sure this location is writable
+!
open F, ">$file" or die "Couldn't create $file: $!\n";
...
    print F join(/,/, @row), "\n";
}
close F;