See 'perldoc -f print', and see that if you want to use an array or other expression as a filehandle, you need to use a block:

print {$args->{fh}} <<EOF;
[download]