select returns the currently selected filehandle, so cache it and select it again:

open FH, "> filename.txt" or die "Cannot open filename.txt: $!";
my $curr_fh = select (FH);
# do your stuff;
select $curr_fh;
# now you can print!
[download]

Cheers,
Ovid

Looking for work. Here's my resume. Will work for food (plus salary).
New address of my CGI Course.