Select Code to Download

use IO::File;

...
# Do your stuff here. At the end of every iteration, call $fh->flush;

$fh->close;