Select Code to Download

my @foo = qw(123 456 789);
my @bar = qw(abc def ghi);
...
qux(@foo, @bar, 'STDERR');
print "\n";
print \@foo . "\t" . \@bar;

# the filehandle name must be quoted if you have strict subs enabled.
process(@data,@set_up,$template, 'OUT');
...
    foreach my $record (@data) {
        --do things--}
}