in reply to Passing filehandles
You can use a lexical scalar in place of a bareword filehandle:
my $fh; open $fh, $path_to_file; [download]
print $fh "Test"; [download]
/J\