Select Code to Download

open(ARQ,">$dir$foo_file");
binmode ARQ;
print ARQ $foo_file;
close(ARQ);

sub GetForm
{
...
        }
    close(TXT);
}