You could also use

use IO::Handle;
open (REPORT, ">$myfile) || die $!;
REPORT->autoflush(1);
[download]