use File::Find;

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

## rest of your code here