Select Code to Download

my @params = qw(foo too you);
my @values;
push @values,$q->param($_) for @params;
my $line = join ":",@values;
print FILE "$line\n";

my @values;
{
...
    local $"=":";
    print FILE "@values\n";
}