To save re-working your existing code just use select and open

use File::Find;

open(FH, ">your_output_file") or die("ack - $!");
select(FH);

## rest of your code here
[download]

That assumes that is the entirety of your script, and if not remember to add a select(STDOUT) and close(FH) after you've finished outputting to your file. See. the select and open docs for more info.
HTH

_________
broquaint