Select Code to Download

sub writeFile {
open(FILE, ">$_[0]") || return ($!);
...
close(FILE);
return 0;
}

&writeFile("file.txt", @file);